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INHALT SCHNEIDER 


Grüß Gott 


Gruezi = Guten Tag 


Alles neu macht der Mai — und das 
im September? 

Sie werden sich verwundert die 
Augen gerieben haben, Schneider 
aktiv sieht anders aus. Neues Titel- 
Signet, neue Schriften, neuer Preis, 
mehr Umfang und — erstmals — 
Farbe im Heft! Was ist los? 

Ganz einfach: Schneider aktiv ist 
besser geworden — und wird weiter 
zulegen. Denn der zweitbestver- 
kaufte Computer in diesem Land 
verdient auch eine entsprechende 
muntere Zeitschrift — eben 
Schneider aktiv. 

Neu ist der Verlag. Schneider aktiv 
erscheint ab sofort in einem profi- 
liertem Münchner Haus, das sich 
ausschließlich Computerzeit- 
schriften widmet und dessen Titel 
sich ihren Platz am Kiosk erkämpft 
haben. 

Diese Vergangenheit verpflichtet. 
Verpflichtet für die Zukunft und 
insbesondere unseren Lesern gegen- 
über. Wer uns von unseren anderen 
Zeitschriften her kennt, weiß: 

BEI UNSSTEHT DER LESER AN 
ERSTER STELLE! Das heißt: 

Wir werden uns selbstverständlich 
liebevoll mit unseren Schneider- 
modellen auseinandersetzen, aber: 
WIR WERDEN KEIN BLATT VOR 
DEN MUND NEHMEN, WENN ES 
GILT, MISERABLES AUCH 
MISERABEL ZU NENNEN! Das ist 
ein Versprechen, an dem Sie uns ab 
den nächsten Ausgaben messen 
können. 

Aktualität ist uns eine vordringliche 
Chronistenpflicht. Wir beweisen sie 
in diesem Heft. KNAPP EINE 
WOCHE NACH DER PRÄSENTA- 
TION STELLT SCHNEIDER 
AKTIV IHNEN BEREITS DIE 
NEUEN SCHNEIDER PC VOR. 
UND ZWAR DIE ECHTEN, NICHT 
DIE ERDACHTEN. EXCLUSIV 
FUR SCHNEIDER AKTIV-LESER! 
Selbstverständlich hat sich unser 
Haus einen der ‘Neuen’ bereits 
gesichert. Sie werden daher ab der 
nächsten Ausgabe — neben weiteren 
Verbesserungen — auch regelmäßig 
Themen zum Schneider PC finden. 
Unsere Schwesterzeitschrift 


2 


COMPUTER AKTUELL unterzieht 
die Newcomer bereits ihrem mittler- 
weile gefürchtetem Praxistest, Sie 
als Schneider aktiv-Leser werden 
davon profitieren. 

Profitieren — in Mark und Pfennig — 
können Sie auch ab sofort von un- 
serem neuen Service-Angebot, das 
Ihnen nur Schneider aktiv bietet: 
ABSOFORT SIND IHRE 
PRIVATEN KLEINANZEIGEN 
IN DIESEM HEFT KOSTENLOS! 
Mehr darüber auf unseren Service- 
seiten 47 — 50. 

Übrigens: Sie können diese vier 
Seiten selbstverständlich aus dem 
Heft reißen, ohne irgendeine Zeile 
Information zu verlieren! Auch 
das verstehen wir zum Beispiel 
unter Leserservice — nebst einigen 
anderen Dingen. 

Etwa unsere Redaktionsmailbox. 
Die ist jeden Tag zwischen 18 und 
20 Uhr für Sie empfangsbereit 
unter der Telefonnummer 0911/ 
84400. Damit nicht genug: Auch 
unsere Redaktion steht Ihnen für 
Rückfragen selbstverständlich zur 
Verfügung, unter der Telefonnum- 
mer 0911/84244 — Montags von 
17 — 20 Uhr. 

Noch mehr? Aber selbstverständ- 
lich. Ab 1. Januar 1987 wird der 
Verlag eine eigene Mailbox und 
Datenbank einrichten, die dann 
24 Stunden rund um die Uhr an 
sieben Tagen in der Woche für Sie 
empfangsbereit ist! (Die Post 
braucht noch solange.) 

Bereits jetzt aber können Sie unse- 
ren Kassetten/Disketten- und 
Aboservice täglich ab 15 Uhr tele- 
fonisch erreichen: 089/1298012. 
Das war’s für den Anfang. Jetzt 
wünschen wir Ihnen viel Spaß bei 
der Lektüre dieses Heftes, bei der 
Sie auch einige ungewohnte Dinge 
entdecken werden. Wir sind ge- 
spannt auf Ihre Reaktion. 

Ihr Schneider aktiv-Team 


PS: Sind Sie mit uns zufrieden, 
sagen Sie es weiter. Sind Sie es 
nicht, sagen Sie es uns. 

Unsere Anschrift: Schneider aktiv, 
Postfach 1107, D-8044 Lohhof. 
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EST & TECHNIK 


Microland: 

Rechnung und 
Einnahme/Überschuß — 

zwei sehr nützliche 
Programme ab Seite 11 


Dateien: 

Vier Programme 

zur Dateiverwaltung 

im Vergleich ab Seite 13 


Masta: 

Das hätten selbst 
Optimisten dem 
Schneider CPC 
nicht zugetraut ab Seite 18 
Panasonic: 

Ein Drucker ohne 
Fehl und Tadel ab Seite 20 
Adventure: 

Crafton und Xunk — 

ein umwerfendes 


Duo ab Seite 35 
Taifun: 

Der Compiler für Schneider- 
Modelle ab Seite 36 
Comal: 

Einfach und 

leistungsfähig aufSeite 37 
Midi-Track: 

Ersetzt eine 

Achtkanalband- 

maschine — und 

das noch digital auf Seite 51 
Knightlore: 

Garantie für schlaflose 
Nächte! auf Seite 76 


Im Test: 
Der 
Panasonic KX 


SERIE- SERVICE 


& REPORT 


Tips& Tricks: 
Wer kann es 
noch kürzer? 
CP/M liest alle 
drei Formater — 
Nützliches Unter- 
programm — 
Bücherkiste — 


Für Sie gelesen abSeite 22 


Wenn das Disc- 
Interface nicht 
mitspielen will — 
Bankman — 
mal anders — 
Dbase II unter 
CP/M plus ab Seite 24 
Report: 
Elektronicmesse 
in München — 
Multifunktionale 
Abdeckhaube — 
GSX-Literatur für 
den Joyce jetzt 
erhätlich — 
Zweitlaufwerk für 
unter 300 Mark — 
Neue Hard- und 
Software für den 
Joyce — 
Ein Drucker — 
zwei Computer abSeite 52 
Serie: 
Hisoft-Pascal 
für Jedermann — 
Elfte und letzte 
Folge ab Seite 58 
Glosse: 
Nur wissen muß 
man es: F.W.'s 
heiteres Brevier für 
Jedermann — und 
Antwort auf selbst 
gestellte Fragen 
gibt er auch noch 

ab Seite 60 


Report: 

Neuer Typenrad- 
drucker — 

Das Schneider 
Grafikbuch — 
Loco 15 


auf Seite 67 


DFÜ: 
Gewußt wie — 
Wichtige Datex- 


P-Nummern — abSeite 68 


Alle Service- 
Coupons zum 


Ausschneiden ab Seite 47 


Börse: 
Zum Suchen 


und Finden ab Seite 84 


LISTINGS 


Für die Hacker unter unseren 
Lesern sind etliche Nacht- 
schichten garantiert — 

denn hier kommen Super- 
listings, eines besser als das 
andere! Fangen wir an mit: 
Space-Trader: 

Kein Ballerspiel, 

im Gegenteil. 

Ihr Grips ist gefordert. 
Werden Sie kosmischer 
Händler. Das 
Strategiespiel im 
Weltraum! 


Musik: 
Singing in the rain — 
kein Problem auf Seite 34 


ab Seite 26 


CPC-Artist: 

Da können Amiga- 
Besitzer nur vor Neid 
erblassen! Dieses 
Listing nutzt grafische 
Fähigkeiten des CPC, 
von denen Sie noch 
nie etwas 
gewußt haben! abSeite 40 
Ticket-Printer: 

Vergessen Sie teure 
Etiketten-Software. 

Unser Kurzlisting 

macht es besser — 


und umsonst ab Seite 54 


Notizbuch: 

Wer schreibt denn 

noch in Kladden? 

Hier ist ein elektro- 

nischer Merker ab Seite 55 


Grafikgenie: 

Das zweite Grafik- 
programm in diesem 
Heft — etwas 
einfacher, aber 


trotzdem oho! abSeite 62 


First Aid: 

Der ‚Erste-Hilfe- 
kasten‘‘ für alle 
CPC-User, die nicht 
immer im Handbuch 
nachschlagen wollen — 
enorm ausbau- 


fähig! ab Seite 70 


Monster: 

'ne Pacman-Version 

muß auch : 
dabeisein ab Seite 72 
Froschrennen: 


Wetten Sie doch 
mal zur Entspannung, 
wer schneller ist ab Seite 78 


Numberspeech: 
Ihr CPC kann 
reden — 


in deutsch! ab Seite 80 


Und das Ganze gibt es selbst- 
verständlich auch auf Kasset- 
te oder Diskette! Einfach den 
Coupon auf Seite 49 ausfül- 
len und ab die Post! 


Der neue PC 
von Schneider — 
auf 10 Sonder-Seiten! 


SONDERTEIL 
SCHNEIDER PC 


SCHNEIDER AKTIV war 
für Sie exklusiv in London — 
natürlich auch in München — 
und präsentiert Ihnen als 
erste Zeitschrift die wirk- 
lichen Schneider PC auf 
nicht weniger als 10 Seiten! 
Alles über die neuen IBM 
Kompatiblen von Schneider 
lesen Sie (in Farbe selbst- 
verständlich) auf den 

Seiten 4-9 und 89-93 


512 KB serienmäßig! 


WETTBEWERB 


Jeden Monat gibt es 

bei SCHNEIDER 
AKTIV einen Tausender 
zu erringen! 


Mehr darüber ab Seite 38 


Te EZ 2 


EUER EHEN 


rn 


REPORT wemntr 


akt 


SCHNEIDER PC: 
DER 

KARAJAN 

DER IBMI- 
KOMPATIBLEN 


Eo% 


DIE; 


Ferdi's Computer Software 
EDV-Service 


3'-Disketten 
CF2D SOFORT 
LIEFERBAR 


10er-Pack. «Q 5. 
= 


Höftestraße 32 
4400 Münster 
Tel. 0251/61 9881 


TAIFUN 
BASIC-Compiler 


CPC 4644: DM 124,90 
CPC 664/6128: DM 139,90 
Das überlegene Programmiersystem für alle 


sten Programme für den Schneider über- 
haupt.” 


"ISSCOM 1 wendet sich an den Basic-Pro- 
grammierer und zählt wohl zu den wichtig- 
sten Hilfsmitteln, denn _” 

1/86): 
"Mit ISSCOM 1 steht ein leistungsfähiger 
Compiler für den CPC 464 zur Verfügung, mit 
dem es möglich ist. BASIC-Programme en 


"Der Vorteil: Die Ausführungsgeschwindig-" 
keit erhöht sich um den Faktor 20 bis 200.” 


Eine Aufzählung der zusätzlichen Vorteile 


BASIC-Befehlserweiterung (CIRCLE, FILL 
etc.) dar. 


Kostenlose Informationen über unser 
tes Lieferspektrum und Bestellungen bei: 


GERDES 
ImperlalSOFTware Systems 
Heldegartenstraße 36 
D 5300 Bonn I 
Tele: 0228/25 2474 


ANZEIGEN IN 
SCHNEIDER 
AKTIV:EFFEKTIV 
UND 
PREISWERT! 


DIALOG & FINANZ 


Finanzbuchhaltung für alle 

CPC'’s Betriebssystem vortex 
VDOS 2.0 
- Buchen Im Bildschirmdialog 
- freie Kontenwahl (120 max.) 
- Personenkonten (1000 max.) 
— Druckroutinen f. Journaldr., 
—-Summenu. Saldenl., Ktn.-dr., 
- UST-VA, BWA, Bilanz, GuV 


inkl. Handbuch DM 395.- 

dto. o. Persktn. DM 275.- 

Demo-Disk+Info DM 25.- 
20651/48492 


computer service 


r. becker 
Hauptmarkt 1 - 5500 Trier 


CPC-Schneider Flugträining 
für CPC 464, 664, 6128. 
Umfassende Bewertung der 
Flüge. 

A) Hubschrauber-Sımulator 
ın Aktıon. 9 Anzeigen im 
Cockpit. 3 Flugprogr. zur 
Wahl 29 DM 
B) Space Shuttle-Landung 
Echtzeitsimulatıon, nach 
NASA-Unterlagen. 29 DM 
C) Boeing-727 Simulator. 
Dies Programm ist zur An- 
fänger- und Instrumenten- 
Flugschulung geeignet. Mıt 


Anleitung 34 DM 
Ab 2 Program. jedes 
minus 5 DM 


Auf Dısk plus 7 DM. Info 
gegen Rückporto. Flugıng. 
F. Jahnke, 3344 Flöthe 1, 
T. 05341/91618 


Schneidey/ 
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Der neue Amstrad/Schnei- 


der PC-1512 ist eine Sen- 
sation. Hier stimmen 
Leistung und Preis — und 
eine schier unendliche 
und ausgereifte Software 
steht zur Verfügung. Vor- 
bei sind die Zeiten, zu de- 


nen man für viel Geld eine 


Buchführung kaufte, die 


REPORT 


Amstrad 1512 PC-SD“ 
beinhaltet ein Disket- 
tenlaufwerk (SD = 
single drive) 

die “Amstrad/Schnei- 
der Systemeinheit by 
Amstrad 1512 PC- DD“ 
beinhaltet zwei Disket- 
tenlaufwerke (DD = 
double drive). 


die Umsatzsteuer immer 
von 100% ausrechnete. 
Vorbei ist der Ärger mit 
Software, die den Ver- 
sprechungen nicht stand- 
hält. In Deutschland lie- 
gen die Preise zwar höher 
als in England, dafür wird 
der Schneider PC-1512 
aber mit einem ca. 700 
Seiten starken deutschen 
Handbuch geliefert. Neu 


MONITOR- 
VARIANTEN 


Die Amstrad/Schneider 
Systemeinheit by Amstrad 
wird entweder mit einem 
Monochrome-Monitor 
(entspiegelt schwarz/weiß 
bzw. weiß/schwarz) bzw. 
mit einem guten Color- 
Monitor geliefert. 


ist der Name des Herstel- 
lers Amstrad auf den 
Schneider-Versionen: 

So heißt die Schneider- 
Version “Schneider 


Systemeinheit by Amstrad‘““ 


wodurch deutlich kennt- 


— Der 13° Monochrome- 


Monitor hat die Bezeich- 
nung PC-MM (mono- 
chrome monitor) 


— Der 14° Color-Monitor 
hat die Bezeichnung 


PC-CM (color monitor) 


DIE “AMSTRAD/ 
SCHNEIDER SYSTEM- 
EINHEIT BY AMSTRAD 
1512 PC-SD‘' 


lich gemacht wird, daß 

die Firma Schneider kein 

eigengebautes Produkte, 
sondern ein fertiges 

Amstrad-Produkt ver- 

treibt. 

Als Einstieg in die PC- 

Rechner sollte man wis- 

sen, daß der Original-IBM- 

ee in ern 
geliefert wird: als - _ : 

PC TEM RT und IBM-AN, SOME... 

Der Amstrad/Schneider Kunststoffgehäuse, XT- 

PC-1512 entspricht einem kompatibel, Mikroprozes- 

XT, der in verschiedenen sor 8086, 512 KB-RAM, 

Varianten (Ausbaustufen) aufrüstbar auf 640 KB, 

geliefert wird. Dabei über-- 8 MHz Taktfrequenz, 

trifft der Amstrad/ ROS (ROM Operating 

Schneider PC-1512 die System), Parallel- und 

Auflösung und Farbdar- Seriellschnittstelle, Game- 

stellung des IBM. port, batteriegepufferte 

Echtzeituhr, Monitoran- 

RECHNER- schluß, eine 360 KB (for- 

VARIANTEN matiert) 5,25”- -Floppy, 

Farbgrafikausgang mit 

640 x 200 Punkten in 

16 Farben gleichzeitig, 

3 IBM-kompatible Erwei- 

terungsslots, Lautsprecher 

mit Lautstärkeeinstellung, 

Sockel für den mathema- 

tischen Coprozessor 8087, 

Anschluß für Light Pen 

und Colorkarte mit fol- 

genden Auflösungen: 

— mittlere Zeichendar- 
stellung: 16 Farben 
mit 40 x 25 Zeichen 

— hohe Zeichendarstel- 
lung: 16 Farben mit 
80 x 25 Zeichen 


Die kleinste Variante des 
Amstrad/Schneider PC- 
1512 Rechners ist wie 
folgt ausgestattet: 


Verschiedene Versionen 
des Amstrad/Schneider 
PC-1512 sind lieferbar. 
Die Zahl 1000 kennzeich- 
net die Serie — die Zahl 
512 steht für die Größe 
des allen Rechnern ge- 
meinsamen RAM-Spei- 
chers von 512 KB. 
Die Unterscheidung der 
verschiedenen Typen er- 
folgt durch jeweils zwei 
der Typenbezeichnung 
angehängte Buchstaben: 
— die “Amstrad/Schnei- 
der Systemeinheit by 


REPORT 
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eingebautem Netzteil 
für Rechner und Monitor. 


— Mouse: 


Ergonometrisch konstruier- 
te Zweiknopf-Mouse 
(Microsoft-kompatibel), 
wird an der Tastatur über 
einen Mini-D-Stecker ange- 
schlossen und ist im Lie- 
ferumfang enthalten. 


— Drucker: 


Ein Drucker ist nicht im 
Preis enthalten. Passend 

für den PC wird der neue 
DMP 3000 geliefert. 

— Software: 


ROM-Bios 
MS-DOS 3.2 mit deut- 
scher Anleitung 
DOS-Plus mit deutscher 
Anleitung 
GEM Desk Top 2.0 für 
die Mouse mit Uhr, 
Kalkulator, snap-shot 
Utility und deutscher 
Anleitung 
(GEM steht für Grafik En- 
vironment Manager. GEM 
Desk Top 2.0 arbeitet mit 
überlappenden Windows, 
die die Kommandos und 
deren Optionen anzeigen. 


Wird in acht verschiedenen Variationen angeboten: Schneider PC 


— Tastatur: beleuchtet, Mouse-An- 


mittlere Grafikauflö- 


sung: 3 Vierfarbpalet- Ergonomische Tastatur schluß. Der Pfeil der Mouse wird 
x } SENON a S . 

ten 320 x 200 Pixel mit 85 Tasten im IBM- janöchsönier einfach auf das gewünsch- 

hohe Grafikauflösung: Look, davon zwei Sonder- Monitor: te Kommando gelegt und 


2 Farben 640 x 200 
Pixel 

spezielle Grafikauflö- 
sung: 16 Farben 

640 x 200 Pixel. 


tasten: “Enter und 
“Delete‘, die frei pro- 
grammierbar sind, 
Tasten “Num-Lock“ 
und “CapsLock“ 


ein Knopf der Mouse ge- 
drückt. — Keine Befehle 
mehr über die Tastatur 
eingeben! - Alles geht 
schneller! — Keine dicken 


In schwarz/weiß bzw. 
weißs/schwarz umschalt- 
bar (als besonders augen- 
schonend bekannt) mit 


- > 
\ 


JN mıt Controller und Kabel (XT) 


Rechner mit XT-Maınboard 256 Colorkarte 
1 Disk Drive a 360KB. deutsche Tastatur 


ICO 720 


sammen 720KB 


ICO 20 MB 


wie ICO 360 jedoch mit 22 MB-Festplatte. 


22-MB-Festplatte 
XT-Mainboard 256 


I} 8088 CPU 8 Slots, 256 K-RAM 


UXT-Mainboard 640 


wıe XT/MB 256 aber m. 640 KB-RAM bestuckt 


Hard-, Software 
Viertstraße 3-26 
6233 Kelkheim 

= (06198) 9069 


2696.— 


wıe ICO 360, jedoch mıt 2 Disk Drives mıt zu- 
1339.— 
1449. — 
339.— 
499.— 


XT-Multifunktionskate 219.— 
1xCentr., 1xRS 232, 1xGame, 1xUhr u. Platz 
für 384 KB-RAM 

239.— 


XT/Multi 1/0 Karte 


wıe Multif. Karte aber m. Disc Interf. statt RAM 
Monochrome-Karte xtian 189.— 
Color-Grafic- Karte «xt’Aarı 159.— 
XT-Disc -Controller 99.— 
Centronicsinterface (xtarı 89.— 
256 KB-RAM-Chipsatz 99.— 
64-KB-RAM-Chipsatz 39.— 
Maus (mechan.) 

249.— 


7 Monate Garantie. 


Versand erfolgt per NN 


oder Vorkasse. 


Händleranfragen erwünscht. 
IBM-Info 3/86 für 1.— Porto. 


ICO AT-1 
AT kompatibler Rech. mit AT-Mainbd. 640, 
Colorkarte, 1,2 MB-Floppy, deutsche Tastatur 


ICO AT-20 4399.— 


wie AT-1, jedoch mit zusätzi. 20 MB-Harddısk 


AT-Mainboard 640 71699. 
Hauptplatiner mit 640-K-RAM, 80286 CPU, 
AT-kompatibel 

666.— 


AT-Multifunktion 


Platz f. 2,5 MB-RAM, 2xRS 232, 1xCentr. Port 
Seriell-Parallel-Karte Tan 149.— 
EGA-Karte 749.— 
AT-Hard- 

Floppykontroller 

749.— | 


© ie 
ALT \ 


A) 


Schneider 
akt 


Anleitungen müssen gele- 

sen werden! — Keine Spe- 

zialbefehle müssen vor- 

her eingeübt werden! 

— Locomotive GEM 
BASIC 2 unter GEM 

Das Locomotive BASIC 


2 unter GEM wird nur we- 


nige begeistern (keine 
Basic-Zeilennummern). 
Aus Kostengründen und 
wegen der engen Verbin- 
dung zu Locomotive 
konnte man sich nicht zu 
dem hervorragenden GW- 
BASIC entschließen. Die- 
ses muß vom Käufer des 
PC-1512 zusätzlich ge- 
kauft werden. Auch fehlt 
ein Textverarbeitungs- 
programm — aber es wird 
eine Low-Cost-Version 
von Wordstar geben (ca. 
199,— DM). Viele An- 
wender des neuen PC- 
1512 werden sich aber 
mit dem billigeren PC- 
write (ca. 100,— DM) be- 
gnügen oder gleich das 
neue komfortable deut- 
en MS-Word 3.0 kau- 
en. 


— das recht simple Mal- 
programm Doodle 

— sowie MS-DOS und 
CP/M-86 Applikatio- 
nen 


Abmessungen (Breite 
x Tiefe x Höhe in mm): 
— Rechner: 
372x384 x 135 
— Tastatur: 
465 x 160 x 58 
— Monochromemonitor: 
350 x 300 x 315 
— Colormonitor: 
372 x 365 x 330 
Gewicht: 
— Rechner: 
je nach Ausstattung 
6,05 bis 7,75 Kilo 
— Tastatur: 
1,175 Kilo 
— Monochromemonitor: 
7,43 Kilo 
— Colormonitor: 
11,6 Kilo 


— Literatur: 


Gutes Handbuch in 
Deutsch — ca. 700 Seiten 
zur Software. 


REPORT 


OPTIONEN ZUR 
“AMSTRAD/SCHNEI- 
DER SYSTEMEINHEIT 
BY AMSTRAD 1512 PC’: 


— Zweites Diskettenlauf- 


werk 

— Harddisk HD 10 mit 
10 MB 

— Harddisk HD 20 mit 
20 MB 

— Farbmonitor 

— alle gängigen IBM-Kar- 
ten mit Einschränkung 
der Verwendbarkeit des 
mitgelieferten Monitors. 


WANN EINE HARD- 
DISK KAUFEN? 


Eine Harddisk arbeitet 
so wie eine Floppy, hat 
aber viel mehr Platz für 
Programme und Daten: 
10 bzw. 20 MB anstatt 
360 KB! Dabei ist die 
Harddisk auch nicht grö- 
ßer als eine Floppy. 

Der Zugriff bei der Hard- 
disk ist schneller, und 
das Wechseln von Disket- 
ten entfällt. Eine Hard- 
disk in Verbindung mit 
einer Floppy ist die 
ideale Endausstattung ei- 
nes PCs. 


DIE PREISE: 


PC-1512 SD mit PC-MM 
1999,— DM 
PC-1512 SD mit PC-CM 
2499,— DM 
PC-1512 DD mit PC-MM 
2499 ,— DM 
PC-1512 DD mit PC-CM 
2999 ,— DM 
PC-1512 SD mit HD 10- 
MM 2999,— DM 
PC-1512 SD mit HD 10- 
CM 3499 ,— DM 
PC-1512 SD mit HD 20- 
MM 3999, — DM 
PC-1512 SD mit HD 20- 
CM 4499,— DM 


ERWEITERUNGSSLOTS: 


Der PC-1512 hat 3 Erwei- 
terungsslots für IBM-Kar- 
ten wie Netzwerkkarten, 
Modemkarten, Harddisk- 
karten etc. Die Karten wer- 
den senkrecht und paral- 
lel zur Tastatur eingesetzt, 


Von oben nach unten: Der 1512 mit seinen rückwärtigen Anschlüssen, die 20 MB Harddisk so daß die Steckbuchsen 
sowie ganz unten die klar gegliederte Tastatur. von der rechten Geräte- 
Fotos auf Seite 5: Großes Foto: Der PC seite zugänglich sind. 
Von oben nach unten: Die Benutzeroberfläche ‘‘Gem’’ sowie Demonstration von ‘‘Gem Paint“. Probleme kann es geben, 


(Alle Fotos Copyright by Schneider Aktiv) wenn der User eine höher 
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auflösende Farbkarte und 
einen hochauflösenden 
Monitor verwenden will, 
wie zum Beispiel die EGA- 
Karte oder noch höher 
auflösende Karten. Da 
diese Karten eine speziel- 
len Monitor benötigen, 
muß der Amstrad/Schnei- 
der-Monitor entfernt wer- 
den. Damit fehlt dem 
Rechner auch gleichzeitig 
die Stromversorgung, die 
müßte separat eingebaut 
werden. 


BESONDERHEITEN: 


— 50 KB RAM-Utility: 


Beim Abnehmen des Mo- 

nitors entdecken wir die 

im Rechnergehäuse einge- 

lassenen Batterien. Diese 

dienen unter anderem 

der Uhr und darüber hin- 

aus ein 50 KB RAM Uti- 

lity, mit dem 

— RS 232 Parameter 

— Farbe 

— Tastaturbelegung 

— Belegung der 2 
Spezialtasten 

— Mouseparameter 

— 40/80 Zeichendar- 
stellung 

— Größe der RAM Disk 
(0 bis theoretisch 
512 KB - unter GEM 
bis 128 KB) 

— Anzahl und Art der 
Laufwerke 

voreinstellbar sind. 

Die Batterie dient der 

Speicherung dieser Daten, 

wenn der Rechner .ausge- 

schaltet wird, so daß 


kein neues Nachladen bzw. 


Programmieren dieser 
Parameter bei Wiederin- 
betriebnahme notwendig 
ist. Geht die Batterie zur 
Neige, wird dies vom Pro- 
gramm angezeigt. 


Funkentstörung: 


Der Rechner ist funkent- 
stört und die Zulassung 
zum Post-Modem-Dienst 
ist derzeit in Bearbeitung. 
Mit Erteilung der FTZ- 
Nummer für die Daten- 
übertragung erschließt 
dieser Rechner neue Di- 
mensionen — zumal es in 
dieser Preisklasse kein 
Gerät gibt, das eine der- 
artige Zulassungsnummer 
aufweist. 


Option Color-Monitor: 


Dieser Monitor hat wie 
der Monochrome-Monitor 
das zum Rechnen benötig- 
te Netzteil eingebaut. 

Er ist um 1” größer als 
der Monochrome-Monitor 
und zeichnet sich dadurch 
aus, daß er gleichzeitig 

16 Farben mit einer Auf- 
lösung von 640x200 Punk- 
ten darstellen kann (siehe 
oben). 


KOMPATIBLITÄT: 


Amstrad/Schneider-aktiv 
hat die Neuen auf ihre 
Leistungen, insbesondere 
auf Kompatiblität von 
Hard- und Software un- 


plätze für IBM-Hard- 
warezusatzkarten hat. 

— Softwarekompatibli- 
tät wurde mit dem 
einwandfreien Lauf al- 
ler uns zur Verfügung 
stehenden Programme 
überzeugend demon- 
striert. 
Eine Ausnahme: Eine 
alte Version des Flug- 
simulators, die die 
Original IBM-Farb- 
karte verlangt, läuft 
nicht. Der neue Flug- 
simulator läuft ein- 
wandfrei. 

Bereits von Amstrad lie- 

ferbare Software wie: 

— GEM Diary (mit 
GEM Cardbox) 

— GEM Graf (mit 


Die Firmenchefs: Albert und Bernhard Schneider 


tersucht, soweit dies im 
Rahmen der Vorstellun- 
gen möglich war. Das Er- 
gebnis ist überzeugend: 

— Hardwarekompatibli- 
tät besteht insofern, als 
der Amstrad/Schneider 
PC-1512 drei Original 
IBM-kompatible Steck- 
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Kalender) 
— Wordchart 
— Draw 
— GEM WRITE 
wird von SCHNEIDER- 
aktiv getestet. 
Alle sonstige bekannte 
Software läuft, wie z.B.: 
— Cyrus Il. Chess, Sum- 


mer Games II, Winter 
Games, Alex, Higgins 
Snooker, Mean 18 Golf, 
Pit Stop II, Microsoft 
Flugsimulator, Open 
Access, Lotus 123, 
Reflex, Sidekick, Word- 
star 1512, Homebase, 
Deskset, PC Write, VP 
Info, New File, New 
Word, Mallard BASIC, 
Dataflex, Arcnet, Amstore, 
Superwriter, Supercalc 3, 
Cracker, Business Control. 
Andere werden als Am- 
strad Low Cost-Versionen 
erhältlich sein. 


Die Besonderheiten im 
Vergleich zum IBM- 
Original: 


— Das Netzteil befindet 
sich im Monitor statt 
im Rechner (Probleme 
bei hochauflösenden 
Karten für ’hochauflö- 
sende Monitore) 

— Das Netzteil hat für 
den Rechner eine gerin- 
gere Leistung (150 
Watt bei den sonstigen 
IBM’s) 

Nachteil: spezielle 
stromsparende Hard- 
disk notwendig 

— Weder Rechner noch 
Monitor haben einen 
Lüfter (braucht der 
PC-1512 nicht) 

— RAM-Speicher auf 
Grundplatine nur bis 
640 KB aufrüstbar statt 
1 MB wie bei den son- 
stigen IBM-Kompatiblen 

— Kein GW-Basic 

— Nur 3 IBM-kompatible 
Steckplätze statt 8 bei 
anderen Kompatiblen 
(genügt, da Schnittstel- 
len und Floppycontrol- 
ler schon auf der Grund- 
platine sind) 

— Kunststoffgehäuse statt 
Metallgehäuse (genügt, 
da wenig Wärme im 
Rechner auf Grund der 
Netzteilverlagerung) 

— MS-Mouse kompatible 
Maus serienmäßig 

So kann der Amstrad/ 

Schneider PC-1512 als ein 

gelungener Wurf betrach- 

tet werden, der in Preis 
und Leistung derzeit sei- 
nesgleichen sucht. Beste- 
chend ist zudem das 

Design, das mit einem 

Profi-Computer aus der 

8000,— DM-Klasse zu ver- 

gleichen ist. B.G. 


Schneide 
akt 


MICROLAND: PRAKTISCHE 
NUTZANWENDUNG FÜR DAS 
KLEINE BÜUR 


Zwei Microland-Programme wurden von uns 
getestet. Ihr überzeugender Vorzug: Ein Handbuch — 
das es auch gar nicht gibt — ist nicht erforderlich. 
alle Funktionen können auch von absoluten 
Computerlaien sofort bedient werden. 


Programmbegleitende 
Bildschirmbedienerfüh- 
rung, permanente Erklä- 
rungen und Hilfestellun- 
gen in den einzelnen Pro- 
grammschritten, eine ein- 
heitliche Bedienerführung 
in allen Programmen und 
ein übersichtlicher Bild- 


grenzung des Einsatzge- 
bietes des Programms und 
in der Einschränkung der 
Bewegungsfreiheit (z.B. 
kein feldweises Springen) 
im Programmablauf. Die 
angepeilte Zielgruppe wird 
darin aber im Gegensatz 
zu den EDV-Profis kei- 


Schwellenangst von EDV- 
Einsteigern sind sicher 
nicht neu, genauso we- 
nig wie das Bemühen der 
Softwareanbieter, dem 
unerfahrenen Nutzer 
anwendungssichere Pro- 
gramme zu offerieren. 
Dieser Zielsetzung be- 
sonders angenommen hat 
sich die Firma Microland. 
Praktische kommerzielle 
Anwendung für das klei- 
ne Büro oder für Zuhau- 


se stehen dabei im Vor- 
dergrund. Angesprochen 
werden sowohl Compu- 
tereinsteiger als auch 
Kleinunternehmer, Ver- 
treter, Freiberufler, Ver- 
eine, Hausverwalter usw. 
Worin besteht nun die 
Microland Software- 
Philosophie? Nun, zu- 
nächst kann man die un- 
vermeidbare Frage nach 
einem ausführlichen Hand- 
buch . getrost vergessen. 


schirmaufbau mit gleichen 
Ansprachefeldern helfen 
auf Anhieb, die relevante 
Aufgabenstellung problem- 
los zu lösen. Selbst An- 
wender, die nur gelegent- 
lich mit ihrem System ar- 
beiten, sind im Programm- 
ablauf sofort wieder zu 
Hause. 

Diese Bedienerqualitäten 
haben natürlich ihren 
Preis im Speicherplatzver- 
brauch, in der engen Be- 
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nen Nachteil entdecken, 
zumal man sich, wie mir 
scheint, die Bedürfnisse , 
der anzusprechenden Käu- 
fer sehr genau angesehen 
hat, um den Programmum- 
fang darauf abzustimmen. 
Microlandprogramme lau- 
fen in gleicher Aufmachung 
auf verschiedenen Compu- 
tersystemen (Commodore, 
MSX, SVI, TA PC, 
Schneider u. IBM). 

Für den Schneider CPC 


TEST | Schneider/ 


werden jetzt angeboten: 
l. Brief- und Adreß- 


programm 198,—- DM 
2. Rechnungs- 

schreibung 198,— DM 
3. Lagerbestand- 

verwaltung 298,— DM 
4. Einnahme/ 

Überschuß 248,—- DM 
5. Versch. Programme auf 


Kassette, z.B. Vokabel- 

trainer 
6. Als Büroset 

die Programme 

l+2Kartei 199,— DM 

(nur Kassette) 
Für den heutigen Testbe- 
richt standen mir die Pro- 
gramme Rechnungsschrei- 
bung, und Einnahme/ 
Überschuß-Rechnung zur 
Verfügung. Beide hier vor- 
gestellten Programme lau- 
fen unter CP/M und sind 
in Turbo Pascal geschrie- 
ben. 


1. EINNAHME-/ 
ÜBERSCHUSS- 
RECHNUNG 


Dieses Buchhaltungspro- 
gramm auf der Basis der 
Einnahmen-/Überschuß- 
Rechnung wendet sich 
an Freiberufler, Selbstän- 
dige, Kleingewerbler 

und alle, die nach dem 
EKST-Gestz $4.3 veran- 
lagt werden. Beim Erst- 
start des Programms legt 
man die Laufwerksanzahl 
fest und initialisiert eine 
Datendiskette (Änderun- 
gen und neue Datendis- 
ketten anlegen auch über 


das Hauptmenü <7> mög- 


lich). Danach gelangt man 
ins Hauptmenü. 


Hauptmenü 

<1>= Firmendaten 
festlegen 

<2> = Belege erfassen 

<3>= Journal auflisten 

<4>= Umsatzsteuer 
Voranmeldung 

<5>= Kontenspiegel 

<6> = Gewinn- und 
Verlustrechnung 

<7> = Dienstprogramme 

<8> = Programmende 


Sinnvollerweise legt man 
zuerst die Firmenstamm- 
daten (Anschrift, Steuer- 
satz, Kontenüberschrif- 
ten, Buchungstexte) fest 
und läßt sie sich ausdruk- 
ken. Alle Eingaben wer- 
den auf der Programmdis- 


kette abgespeichert und 
stehen danach bei jedem 
Neustart zur Verfügung. 
Für den eigentlichen Bu- 
chungsvorgang sind pro 
Datendiskette auf 5 Ein- 
nahme- und 15 Ausgabe- 
konten etwa 2000 Bu- 
chungen möglich. Wem 
das nicht ausreicht, der 
kann jederzeit einen vor- 
läufigen Abschluß durch- 
führen und auf einer neu- 
en Datendiskette weiter- 
buchen. Freie Steuersatz- 
festlegung bei der Beleg- 
erfassung ist selbstver- 
ständlich möglich. Den 
Auswertungszeitraum für 
Kontenspiegel, Journal, 


© hy cos 


dings genau wissen und 
habe deshalb das Pro- 
gramm einigen möglichen 
Anwendern vorgelegt, die 
vom Einbruch des Com- 
puterzeitalters noch un- 
berührt waren: Ergebnis: 
Alle Testpersonen kamen 
mit der Programmbedie- 
nung auf Anhieb zurecht. 
Was die Brauchbarkeit 
des Programms für das 
angepeilte Einsatzgebiet 
anbelangte, gab es zudem 
von den Anwendern we- 
nig Kritik. Den Programm- 
vertreiber wird es freuen. 
Wunschlos glücklich ist 
man letztlich aber dann 
doch nicht. Das liegt ein- 


Schwaig 


aktı 


Programm ohne den auf 
die Dauer lästigen Vor- 
spann neu starten zu kön- 
nen, wäre auch nicht 
schlecht. 


2. RECHNUNGS- 
SCHREIBUNG 


Angebote, Rechnungen 
und Gutschriften gehören 
für viele Gewerbetreiben- 
de zur täglichen Routine- 
arbeit. Das vorliegende 
Programm erledigt aber 
nicht nur diese Aufgaben, 
sondern verwaltet auch 
noch die Kunden- (500 
pro Datendiskette) und 
Artikelkartei (1000 pro 
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Bitte drücken Sie die ENTER-Taste ! 


Gewinn- und Verlust- 
zuweisung oder die USt- 
Auswertung kann man 
monats-, quartals- oder 
jahresweise festlegen. Alle 
Ergebnisse werden auto- 
matisch berechnet und er- 
scheinen alternativ auf 
dem Bildschirm oder Druk- 
ker. An der Übersichtlich- 
keit der Darstellungen, 
dem Programmaufbau 
und der Programmlogik 
gibt es nichts auszusetzen, 
wenn man die eingangs 
gemachten Einschränkun- 
gen akzeptiert. Wie das 
mit der “eingebauten 
Bedienungsanleitung“ 
(Originalton Microland) 
aussieht, wollte ich aller- 
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mal an der Tatsache, daß 
mit der Originaldiskette 
gearbeitet werden muß 
(Kopierschutz) und die 
Bildschirmmaske nur so 
lange hält, wie keine Sy- 
stemfehlermeldung (z.B. 
Disco missing) erfolgt. 
Das kann niemanden er- 
freuen, zumal kaum eine 
Möglichkeit besteht, z.B. 
durch Anwahl des Haupt- 
menüs, die Maske neu 
aufzubauen. Hier sollte 
man von Herstellerseite 
doch schnellstens eine si- 
cher nicht aufwendige 
Fehlerabfangroutine ein- 
bauen. Und wenn man ge- 
rade das Programm er- 
gänzt: Eine Option, das 


Alle Microland-Programme, 
auch die hier getesteten, sind 
mit einer nahezu perfekten 
Menü-Führung ausgestattet, 
die das Studium eines Hand- 
buches überflüssig machen — 
es gibt auch keines. Diskette 
einlegen, einschalten und 
arbeiten, so einfach ist das 


Datendiskette), erlaybt 
Texteingabe z.B. für‘ 
Dienstleistungsrechnun- 
gen, erstellt Ausgangsjour- 
nale und wertet den Um- 
satz nach verschiedenen 
Kriterien (z.B. kunden- 
oder artikelbezogen) aus. 
Über die Programmdis- 
kette (Seite A) gelangt 
man nach dem bekannten 
Vorspann (Datendiskette 
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anlegen, Datumseingabe) 
in das Hauptmenü. 


Hauptmenü 

<1l>= Firmendaten 
verwalten 

<2>= Kundendaten 
verwalten 

<3>= Artikeldaten 
verwalten 

<4>= Angebote/Rech- 
nungen/Gut- 
schriften 


<5>= Ausgangsjournale 
<6>= Auswertungen/ 
Periodenabschluß 
<7>= Dienstprogramme 
<8> = Programmende 


Unter Menüpunkt <1 > 
werden die Firmenan- 
schrift gespeichert, die 
Abrechnungswährung und 
die MwSt-Sätze festgelegt, 
sowie die Zahlungsbedin- 
gungen und das Rechnungs- 
formular (Kopf, Bankver- 
bindung, Zahlungsbedin- 
gungen) abgelegt. 
Kunden- und Artikeldatei 
sind in sich abgeschlosse- 
ne Dateiverwaltungen 

mit allen notwendigen 
Standardeinstellungen, 
wie Erfassen, Anzeigen, 
Andern, Löschen, Druk- 
ken. Als Kundendaten 
können, neben einer Kun- 
dennummer, die komplet- 
te Anschrift, die Erlös- 
gruppe, Zahlungsbedin- 
gungen, MwSt und der 
Umsatz abgelegt werden. 
Die Artikelstammdaten 
setzen sich aus der Arti- 
kelnummer, der Artikel- 
bezeichnung, der Mengen- 
einheit, der MwSt, dem 
Verkaufspreis (netto+ 
brutto) zusammen. Die 
abgegangene Menge und 
der abgegangene Wert 
werden vom Programm 
errechnet und ebenfalls 
auf dem Datenträger ge- 
sichert. 

Alle Artikel- und Kunden- 
daten können selbstver- 
ständlich bei deı Erstel- 
lung von Rechnungen, 
Angeboten und Gutschrif- 
ten verwendet werden. 
Um einen bestimmten 
Kunden in ein Angebot zu 
übernehmen, genügt es 
dann, seine Kundennum- 
mer einzugeben, für einen 
bestimmten Artikel reicht 
seine Artikelnummer. 
Rechnungen zu schreiben 


1) = Firmenanschrift verwalten 

( 2) = Nehrwertsteuersaetze/llachrensseinheit 
(3 ) = Rentenueberschriften verwalten 

{4 ) = Duchusstexte verwalten 

(5) = Firmendaten drucken 


X 93’: Zurueck zun Inpiaenee 


{ 1) = Firmendaten verwalten 

{ 2) = Buchungen erfassen 

(3) = Jewaal auflisten 

(4 ) = Insatzsteuer Veranneldung 
(5) = Rentenspiegel 

(6) = Cewimn- und Verlustrechnung 
(7) = Dienstprograme 


(9) = Progrannende 


DAS ANGEBOT 


Wir bauen unsere Redaktion 
weiter aus! 


SCHNEIDER AKTIV 
sucht den 


CHEFREDAKTEUR 


zur Weiterentwicklung des Ob- 
jektes. Darüber hinaus sucht 
die Aktuell-Gruppe 


ZWEI VOLONTÄRE 


Voraussetzungen: Abitur oder 
Mittlere Reife, gutes bis per- 
fektes Deutsch, gute Kenntnis- 
se in Basic und Computertech- 
nik (vorzugsweise Commodo- 
re, MSX oder Schneider) zum 
sofortigen Eintritt. Interes- 

siert? Rufen Sie einfach an. 

AKTUELL GRUPPE 
Tel. 089/12980 11, W. Seibt 
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wird mit diesem Micro- 
landprogramm wirklich 
zum “ Kinderspiel“. 
Das Formular ist fertig 
und abrufbar, eine Viel- 
zahl von Einträgen (z.B. 
Artikel, Kunde usw.) kann 
er Tastendruck abgeru- 
en werden, individuelle 
Eingaben sind ebenfalls 
jederzeit möglich, falls 
notwendig. Soll z.B. ein 
noch nicht gespeicherter 
Kunde bedacht werden, 
so genügt die Eingabe 
der Kundennummer “O“, 
und die Anschrift kann 
über die Tastatur einge- 
bracht oder korrigiert 
werden. Einfacher geht es 
nicht mehr. 
Rechnungen, Gutschriften 
und Angebote können 
auf Wunsch mit ihren 
Eckdaten in ein Ausgangs- 
journal übernommen wer- 
den, das dann Auskunft 
über alle bislang erstell- 
ten Schriftstücke gibt. 
Bis zu 50 Einträge sind 


“hier möglich. Informatio- 


nen über den Geschäfts- 
verlauf erhält man letzt- 
lich nach Anwahl des 
Menüpunktes <6>. Um- 
satzorientierte Kunden- 
oder Artikellisten oder 
eine Umsatzverteilung 
nach Erlösgruppen sind 
abrufbar. 
Periodenabschlüsse sind 
zu jeder Zeit möglich, 
bedingen aber nach der 
Durchführung eine Rück- 
setzung aller Umsatz- 
werte auf Null. 

Das Programm selbst ist 
narrensicher in der Be- 
dienung und kann im 
praktischen Einsatz voll 
überzeugen. Angebracht 
ist allerdings die Verwen- 
dung eines zweiten Lauf- 
werks, damit sich der 
Diskettenwechsel (Pro- 
grammdiskette Seite A 
und B(!) + Datendisket- 
te) in Grenzen hält. 


Fazit 


Zwei rundherum empfeh- 
lenswerte, anwender- 
freundliche Programme, 
die durch ein paar kleine 
Verbesserungen (Pro- 
grammschutz, Fehlermel- 
dung) noch an Qualität 
gewinnen würden. 

Gerhard Wertenbach 
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DATEI- VERWALTUNGEN 
OHNE RELATIV-DATEIEN 


Alles ist relativ, auch Dateiverwaltungsprogramme. 
Unser Autor stellt hier zwei käuflichen „‚Profi- 
lösungen” zwei kostenlosen, aus Computerzeit- 
schriften gegenüber. 


Nach der Anschaffung ei- 
nes Homecomputers kri- 
stallisieren sich beim 
stolzen Besitzer sehr 
schnell die gängigsten 
Anwendungsmöglichkei- 
ten heraus: 

— Spiele 

— Programmieren 

-— Textverarbeitung 

— Dateiverwaltung 


Wobei der letzte Punkt 
die wohl universellste 
Anwendung ist und des- 
halb am häufigsten ein- 
gesetzt wird. Aber wie 
stehen die Chancen für 
den Anwender, eine be- 
friedigende und preis- 
werte Dateiverwaltung 
für den Hausgebrauch zu 
erstellen, wo es doch Pro- 
gramme gibt, angefangen 
vom abtippbaren 20-Zei- 
ler bis hin zum professio- 
nellen Datenbanksystem? 
Wir wollten zuerst einmal 
zusammenstellen, wofür 
wir ein solches Programm 
einsetzen wollen. Ist doch 
völlig klar, werden Sie 
sagen, zur Adreßverwal- 
tung, und äh! für die 
Schallplatten und... 

So einfach ist es nun 
auch wieder nicht. Wir 
müssen schon überlegen, 
wenn wir über die bei- 
den “Basisdateien“ hin- 
wegwollen. Aber dann er- 
kennen wir weitere effek- 
tive Einsätze einer Datei- 
verwaltung: Videodatei, 
Briefmarkendatei, Ver- 
waltung der Kochrezepte, 
Urlaubsdatei, Kfz-Kosten- 
verwaltung, Zeitschriften- 
archiv usw. Also, der Be- 
darf ist da, wo ist das 
Programm? 

Nun möchte ich die Pro- 


gramme herausselektieren, 


die meiner Meinung nach 
nicht für den “häusli- 
chen‘ Einsatz geeignet 
sind. 

Da wären zunächst die 
Dateiprogramme, die sich 
nur für den Einsatz auf 
einem Gebiet (z.B. Adreß- 
verwaltung) eignen. Dies 


sind Programme, wie sie 
schon kurz nach dem Er- 
scheinen des CPC auf dem 
Markt zu finden waren. 
Durch geringe Parameter- 
änderungen konnte damit 
eine schnelle Mark verdient 
werden. Der Anwender 
mußte für jede seiner An- 


u ger im —D- A-T-E- SL meer RS IE LL- E- N. — 


7 Name 

Name des zZten 
? Norname 
Name des >ten 
? Strasse 
Name des 4ten 
7? PLZ 

Name des 5ten 
? Ort 


u nn nn 


DATEI 


ERSTELLEN 


Hisviele Datensaetze soll die Datei hahenı ? ZB6 


Hievieie Felder soll ein Datensatz haben 


Wie soll die Datei heissen 


ERSTELL 


25 


? TEST 


N 


Sie haben 5 Feider zu definieren 


Bezeichnmg des 


Hahen Sie Felder richtia hezeichnet 


Sten Feldes 


Oben: Data 64-, unten Schneider-Menüs 
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ETICN) 


Schneidey/ 
akt 


wendungen ein eigenes 
Programm kaufen. Das 
hat den Nachteil, daf3 man 
sich in der Bedienung um- 
gewöhnen muß, viel Spei- 
cherplatz für die Program- 
me benötigt wird, und vor 
allem kostet es eine gan- 
ze Menge Geld. Aus einer 
aktuellen Preisliste eines 
Softwareanbieters habe 
ich für die Einrichtung ei- 
ner Adreß-, Münz-, Brief- 
marken-, Video-, und Bi- 
bliotheksverwaltung einen 
A aa pe von 
DM 355,— errechnet. 
Das ist mehr als zuviel! 
Soviel ist bei mir die ganze 
Münzsammlung nicht 
wert (Anfänger!!). Ergeb- 
nis: Solche Programme 
kommen unter Berück- 
sichtigung des Preises 
nicht in Betracht. Was wir 
also brauchen, ist eine 
“MULTIDATEI“. 
Und solch universell 
einsetzbare Dateiverwal- 
tungen gibt es schon. 


EINE FLIEGE MIT 
DEM RAKETEN- 
WERFER TOTEN? 


Sie werden von den unter- 
schiedlichsten Anbietern 
mit den unterschiedlich- 
sten Ausstattungsmerkma- 
len angeboten. Das heißt: 
Auch hier müssen wir den 
für uns am besten nutzba- 
ren Teil aussuchen, der 
wohl in der unteren 
Schicht (gemessen an den 
Leistungsmerkmalen) zu 
finden ist. “Warum?” WErT- 
den Sie fragen, “sind es 
denn meine Adressen 
nicht wert, von einer 
komfortablen Dateiver- 
waltung bearbeitet zu 
werden?“ Natürlich sind 
sie das, aber man kann ei- 
ne Fliege auch mit einem 
Raketenwerfer von der 
Wand holen. 

Ganz oben in der Skala 
der ‘““Multidateien‘ dürf- 
ten wohl Datenbanksyste- 
me kursieren. Das sind ° 
Programme, die ihre Da- 
ten über verschiedene 
Indexe verwalten und de- 
nen noch eine Art “Pro- 
grammiersprache‘ mitge- 
geben wurde, um sogar 
eigene Anwendungen zu 
schreiben. Dies hat un- 
wahrscheinlich viel Vor- 
teile, wenn man: 


TEST 


a) programmieren kann 
(oder zumindest ein 
Faible für die Logik 
von Computerpro- 
grammen besitzt) 

b) einen professionellen 
Einsatz plant 

Wir aber wollen nur ein 

paar private Daten ver- 

walten, dafür ist mir er- 
stens der Anschaffungs- 
preis (am Beispiel des 

wohl bekanntesten Da- 
tenbanksystems dBASE 

Il) von z.Z. DM 199, — 

zu hoch, außerdem müßte 

ich mir für meinen CPC 

464 noch eine Speicher- 

erweiterung anschaffen, 

die wiederum mit einer 
einmaligen Ausgabe von 


Name 
Vorname 


Data 64 


mindestens DM 138 ,— zu 
Buche schlägt, und ich 
müßte Besitzer eines Dis- 
kettenlaufwerkes sein 
(bin ich, aber andere viel- 
leicht nicht). 

Summa summarum: Für 
meine Ansprüche viel zu 
teuer. 

In der Mittelklasse dürf- 
ten die Programme anzu- 
siedeln sein, die Relativ- 
dateien verwalten. D.h.: 
Sie können auf einen be- 
stimmten Datensatz auf 
dem Speichermedium zu- 
greifen und müssen nicht 
immer alle Datensätze 
nacheinander (sequentiell) 
lesen. Diese Art der Da- 
tenverwaltung hat den Vor- 
teil, unabhängig von der 
Hauptspeichergröße zu 
sein, und selbst in großen 


Dateien ist die Zugriffs- 
zeit auf einen Datensatz 
außerordentlich kurz. 

Ich habe zu Beginn mei- 
ner Programmierarbeit auf 
dem CPC diese Verarbei- 
tungsart (unterstützt von 
der Routine aus dem 
Data Becker Buch “Das 
große Floppybuch‘‘) be- 
vorzugt, nach einer durch- 
geführten Selbstkontrolle 
mußte ich zwischenzeit- 
lich zugeben, daß ich 
auch nach Eintragung der 
allerfrühesten Schulfreun- 
de und der schon gekün- 
digten Versicherungen 
nur auf einen Adreßbe- 
stand von 126 Adressen 
komme, und damit habe 


ner Grundkonfiguration 

an Hardware sie einsetzen 

und alle benötigten 

Daten verwaltet werden 

können. Aber auch in die- 

sem Extrakt gibt esnoch 
eine ganze Reihe von Pro- 
grammen, so daß ich 4 von 
ihnen einer näheren Un- 
tersuchung unterzogen 
habe, ob sie für meine Be- 
dürfnisse verwertbar sind. 

Dies sind: 

— DATA 464 

(Programmierer: 
Michael Strasser) 
HC Sonderheft 2/85 
kostenloses abtippbares 
Listing (auf Diskette 
DM 34,—) 

— UNIVERSELLE DA- 


e— 


n IT FEFRLIsLEII Info 


ich die Hauptspeichermög- 
lichkeit noch nicht ein- 
mal zu 50% ausgeschöpft. 
Mit Platten, Videokasset- 
ten, Urlaubseintragungen 
usw. geht es mir nicht an- 
ders. Also, warum nicht 
den Datenbestand in den 


Hauptspeicher laden? 


Die Vorteile liegen klar 
auf der Hand: Wir kön- 
nen kostengünstige Pro- 
gramme benutzen, und je- 
der, der einen Schneider 
CPC 464 sein Eigen 
nennt, kann diese einset- 
zen (Relativdateien kön- 
nen mit dem Datenrecor- 
der nicht verwaltet wer- 
den). 

Jetzt haben wir die nutz- 
bare Schicht an Program- 
men so eingegrenzt, daß 
alle CPC-Besitzer mit ei- 
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TEIVERWALTUNG 
(Programmierer unbek.) 
Schneider-Heft Nr. 11/85 
kostenloses, abtippbares 
Listing (als DATA-Box 
DM 17,—): 


— MULTIDATEI 
(Programmierer: 
Ralf Somplatzki) 
vertrieben von: 
DATA MEDIA 
Kassettenversion zum 
Preis von DM 89, — 
(Diskette: DM 99, —) 


— MULTIDATEI 
(Programmierer: 
Ullrich/Wixforth) 
vertrieben von: 
Ariola Soft&Rainbow 
Arts 
Kassettenversion zum 
Preis von DM 59,90 
(Diskette: DM 69, —) 


TEST | Schneider/ 
akt 


(Man beachte: Dies ist 
nicht die neu vorgestell- 
te und weit verbesserte 
Version EMS MULTI- 
DATEI, sondern noch 
deren Vorgänger) 


Wenn man mich jetzt 
fragt, warum ich zwei 
Top-Dateiverwaltungen 
mit solchen “Heftchen- 
Listings“ vergleiche, da 
der Unterschied schon im 
Voraus feststeht, so muß 
ich antworten: Ich hoffe 
es. Ich möchte die hohe 
Qualität der Produkte 
durch den Vergleich mit 
Freeware bestätigt be- 
kommen. Ich will wissen, 
wofür ich den Mehrpreis 
(Gesamtpreis) bezahlt 
habe. 


Modus : Eingabemaske / 
Dateiname ? adressen 


Maske gelesen 


einfacher Verpackung 

im Kassetten/Disketten- 
service. Die Bedienungs- 
anleitung stellt das Com- 
puterheft dar. In beiden 
Fällen wird keine Maschi- 
nenroutine verwendet. 
Die Universelle Datenver- 
waltung aus dem Schnei- 
derheft (ab jetzt einfach 
Schneiderdatei genannt) 
ist akzeptable 18 KB 
groß, DATA464 nur 
7KB(??) 


MULTIDATEI 
Data Media 


Die Lieferung erfolgt in 
der häufig verwendeten 
DIN-A-5 großen Buch- 
hülle mit Glanzumschlag. 


Dimensionlerung 


Sie haben 288 freie Ds zur Nerfuegung 


Kontrolle der Eingahenaske : 


ört 
Telefon 
Benerkung: 


EE Korrektur MER Dateneingabe 


Rainbow-Multidatei 


Wie sollen nun die Pro- 
gramme verglichen wer- 
den? Zuerst möchte ich 
sie mir einmal ansehen 
(wobei die Freeware aus- 
zunehmen ist, da sie ja 
nicht als Ware geliefert 
wird), danach kommt 

das Handbuch dran, an- 
schließend die Einrich- 
tung der Dateien. Die ver- 
arbeitbare Datenmenge 
wird überprüft, die Verar- 
beitungsgeschwindigkeit 
und die eingebauten Funk- 
tionen untersucht. Den 
Abschluß bildet die Suche 
nach Extras, die von eini- 
gen Programmen geboten 
werden. 


DIE PROGRAMME 


Die Freeware kommt in 


Unverständlich ist der 
Preis, der auf der Rech- 
nung und dem Liefer- 
schein unterschiedlich 
hoch ist und sich auch 
beim besten Willen nicht 
“zusammenrechnen“ läßt. 
Jetzt erst mal ein CATalog 
auf die Kassette (Name/ 
Blockzahl/Status): 
MASKE/3/%,HP/7/%, 
CODE/1/&, MULTI12/2/%, 
CODE?2/1/&, HP2/9/%. 


MULTIDATEI 
Rainbow Arts 


Auch diese Lieferung er- 
folgt in der Buchhülle mit 
Glanzumschlag. Auf der 
Rückseite befindet sich 
eine Leistungsbeschrei- 
bung (!). innenliegend 
das Handbuch. Auch hier 


ein CATalog: DMDATEI. 
BAS (18KB), MULTIMC. 
BIN (1KB). Das ist alles. 
Na ja. 


1. DAS HANDBUCH 


SCHNEIDERDATEI 

und DATA464 

Obwohl nicht für Anfän- 
ger geschrieben, mehr als 
dürftig. Kaum eine Er- 
klärung. In beiden Fällen 
ist das Listing vorhanden 
(bei DATA464 stimmt 
das gelieferte Programm 
nicht mit dem abgedruck- 
ten Listing überein), trotz- 
dem hätte man ein wenig . 
mehr dazu schreiben 
können. 


MULTIDATEI 

Data Media 

“Handbuch‘“? Es ist ein 
8seitiges Heftchen, im 
Format 18x15 cm, auf 
einfachem gelben Papier 
mit mittelmäßigem 
Druck. Nach kurzer Ein- 
leitung stutzte ich zum 
ersten Mal: <RUN 
“DATA =Dateiprogramm> 
Wenn Sie noch einmal ei- 
nen Blick auf das CA Talog- 
Ergebnis werfen: Ein sol- 
ches Programm ist gar 
nicht vorhanden. Zwei 
Blätter weiter spricht 

man sogar von “DATA2“. 
Um die Spannung vor- 
weg zu nehmen, das Pro- 
gramm “*MULTI2“ ist ge- 
meint. 

Was fiel noch auf: Nach 
der Einleitung erfolgt die 
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Beschreibung, wie man 
die Eingabemaske erstellt, 
danach die Bedienung des 
Dateiprogrammes. 

Meine Meinung: Der Text 
hätte wenigstens Korrek- 
turgelesen werden sollen 
(grammatikalische Män- 
gel), und es fehlt stark an 
Didaktik. Zuviel wird auf 
wenigen Seiten zu erklä- 
ren versucht, Tests bewie- 
sen, daßein Anfänger kaum 
eine anspruchsvolle Mas- 
ke mit Hilfe dieser An- 
leitung erstellen kann, da 
ihm das notwenige Hin- 
tergrundwissen (das vor- 
ausgesetzt wird) fehlt. Zu- 
viel Fachsimpelei bei den 
Datenformaten. An ande- 
ren Stellen heißt es dann: 
““Verzweifeln Sie nicht, 
wenn Sie nicht verstehen, 
was gemeint ist.“ (Ja, 

wie soll man denn damit 
arbeiten, wenn man es 
nicht versteht?) Oder: 
“Die restlichen Menüpunk- 
te erklären sich eigentlich 
von selbst.‘“ (Das ist 

nicht wahr.) Oder: “Im 
folgenden seien nur noch 
die wenigen Punkte er- 
klärt, die vielleicht un- 
verständlich sein könn- 
ten.“ Oder: “... daß dieses 
Programmpaket noch we- 
sentlich mehr Möglichkei- 
ten beinhaltet, als wir hier 
angesprochen haben, 
braucht wohl nicht er- 
wähnt zu werden.“ 

(Und woher soll es der 
Anwender erfahren?) 


MULTIDATEI 

Rainbow Arts 

Auch dieses Handbuch 

ist nur ein l6seitiges Heft, 
im Format 21x15 cm, 
aber auf Hochglanzpapier, 
mit Umblatt und Top- 
Druck. Es kommt das Ge- 
fühl echter Qualität auf. 
Der Unterschied zu dem 
vorherigen Handbuch 
wird beim Durchlesen 
überdeutlich: Es wurde 
mehr Sorgfalt walten ge- 
lassen. Alles ist klar ge- 
gliedert und verständlich. 
Beginnend mit Garantie, 
Haftung, der Einrichtung 
einer Software-Hotline(!) 
usw. geht es mit der 
Programmvorstellung 
(allgemein) und der Be- 
griffserklärung “Datei, 
Datensatz, Feld‘ weiter. 


Schneidey/ 
akt 


Es folgen das Inhaltsver- 
zeichnis und die einzel- 
nen Menüpunkte, die in 
gleicher durchschaubarer 
Weise erklärt werden, so 
daß kaum Fragen offen- 
bleiben. 

Meine Meinung: Ein ge- 
lungenes Werk. Material 
und Druck hervorragend, 
Inhalt didaktisch ausge- 
zeichnet. 

Ich sage mir immer, je 
schlechter das Handbuch 
ist, um so besser muß das 
Programm sein. Nun, ich 
werde mich überraschen 
lassen. Um alle Program- 
me einem vergleichbaren 
Test zu unterziehen, erzeu- 
ge ich mit jedem eine Test- 
Datei mit 5 Feldern (vom 
Umfang einer Adreßda- 
tei). Später taste ich mich 
natürlich auch noch an 
die Grenzwerte des Da- 
tenfüllvermögens heran, 
aber für den allgemeinen 
Gebrauch tut es diese 
Testdatei. 


2. DIE ERSTELLUNG 
EINER DATEI 


Obwohl es in allen 4 Fäl- 
len “frei definierbare Ein- 
gabemaske“ heißt, kann 
die genaue Position der 
Eingabefelder und Feldbe- 
zeichnungen sowie die 
Vergabe von Feldtypen 
nur bei der MULTIDATEI 
von Data Media bestimmt 
werden. Wo liegen dabei 
die Vor- bzw. Nachteile: 


++ Durch Feldtypenver- 
gabe ist die Möglich- 
keit echter Datum-, 
Uhrzeit-, numerischer 
oder alphabetischer 
Verarbeitung gege- 
ben. 

+ Bessere optische Dar- 
stellung der Datei 

+ Möglichkeit von Er- 
klärungen zum besse- 
ren Verständnis 

—  Separates Programm 
notwendig 


—  Aufwendigere Masken- 


definition 
Alle anderen Programme 
definieren die Eingabe- 


maske im Hauptprogramm. 


Es kann keine Bildschirm- 
position bestimmt werden 
und auch die Feldtypen 

sind für alle Felder einheit- 


TEST 


lich. Dafür erscheint die 
Arbeit mit ihnen um ein 
vielfaches leichter als mit 
der MULTIDATEI von 
Data Media. Der erste 
Menüpunkt in allen Pro- 
grammen dient der Datei- 
erstellung. Einmal ange- 
wählt, muß man nur noch 
die Anzahl der Datenfel- 
der pro Datensatz und 
deren Bezeichnung einge- 
ben. Anschließend kann 
man die Eintragungen 
korrigieren und ist danach 
sofort in der Lage, Daten 
einzugeben (für eine sol- 
che Definition wurde im 
Schnitt nicht mehr als 


MULTIDAT 


Multidatei von Data Media 


2 Minuten gebraucht). 
Insgesamt würde mir die 
aufwendige Definitions- 
art besser gefallen, allein 
schon der Möglichkeit 
wegen, unterschiedliche 
Feldtypen definieren zu 
können, denn es ist 

schon ein “Kreuz‘, eine 
Datei nach einem Datum 
sortieren zu lassen, das 
nicht als Datum, sondern 
als Text behandelt wird. 
Andererseits wird ein An- 
wender, der noch nicht so 
versiert mit solchen Pro- 
grammen arbeiten kann, 
die einfachere Definitions- 
möglichkeit bevorzugen. 


DATA 464 

Standardfunktionen. 

— Durch den Modus | 
und den häufigen Zei- 
lenumbruch wirkt die 
Eingabemaske nicht so 
gekonnt wie bei den an- 
deren Programmen, 
und Korrekturen bei 
einer Datei mit sehr 
vielen Feldern er- 
scheint schwieriger. 


SCHNEIDERDATEI 

+ Separater Dateina- 
me wird mitabgespei- 
chert (Verarbeitung 
mit dem Datenrecor- 
der) 

—  Abspeicherung klappt 
auf der Diskette nicht 
(Name wird verstüm- 
melt). Durch die Si- 


cherung des Datenpuf- 


fers, mittels der Eröff- 
nung einer “Dummy‘““ 
Datei zu Programmbe- 
ginn, konnte dieser 
Mangel behoben wer- 
den. 

— Immer nur die letzte 
Felddefinition wird 


MASKE 
MASKE 
HaAske 
MASKE 
CATALOG 


LADEH 


angezeigt. (Schlecht 

bei der Frage, ob alle 

Eintragungen richtig.) 
Bei dem Speicherfehler 
der SCHNEIDERDATEI 
fällt mir ein: Dieser Feh- 
ler trat bei der MULTI- 
DATEI von Data Media 
auch auf. Nach mehrfa- 
chen Anrufen bei Data 
Media und dem Einschik- 
ken von Testdateien samt 
Originalprogramm (die 
nach Aussagen der Sach- 
bearbeiterin trotz per- 
sönlicher Adressierung 
erst 16 Tage später anka- 
men), konnte der Fehler 
behoben werden. 


MULTIDATEI 

von Data Media 

Das Programm ““MASKE“ 
stellt im Hauptmenü 
(nach Aufbau des Titel- 
bildes, mit furchtbar ver- 
stimmter Melodie, und 
Monitorauswahl) folgen- 
de Optionen bereit: 
Catalog, eine nützliche 
Funktion, wenn man nicht 
alle Maskennamen im 
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Kopf haben will(!). Da ich 
eine Datei erzeugen möch- 
te, wähle ich den Punkt 
“M“ an und kann den 
Modus wählen, in wel- 
chem ich arbeiten möch- 
te(!!!). Es ist übrigens - 
das einzige Programm, das 
eine Moduswahl zuläßt. 
Sie können natürlich ein- 
werfen, dafs der Modus 2 
(80 Zeichen/Zeile) ja so- 
wieso der geeignetste sei. 
Für Besitzer des Grün- 
monitors mag dies zutref- 
fen, wer aber einmal auf 
einem Farbmonitor im 
Modus 2 gearbeitet hat, 
weifßs, daß er eine unzumut- 


Er 


DATA MEDIA 


ERSTELLEN 
KORRIGIEREN 


SPEICHERN 


bare Schriftqualität be- 
kommt (aufgrund der 
schwachen Auflösung). 
Außerdem wirkt eine Da- 
tei mit nur 2 Feldern zu 
10 Spalten im hochauf- 
lösenden Modus reichlich 
verloren. Ich wähle dar- 
aufhin auch den Modus |. 
Nach einer Erklärung er- 
scheint der fast leere Bild- 
schirm (nur die beiden 
obersten und untersten 
Zeilen werden vom Pro- 
gramm als Funktionszei- 
len benutzt), und ich 
kann nun den Cursor an 
die Stelle bewegen, an 
der ich einen Eintrag täti- 
gen möchte. Das kann ei- 
ne Feldbezeichnung, ein 
Kommentartext oder 
auch Grafikzeichen(!) 
sein, mit deren Hilfe die 
Eingabemaske optisch 
gestaltet werden kann. 
Die Grafikzeichen wer- 
den über die Funktions- 
tasten des 10er Blockes 
(mit Shift) aufgerufen, 

und werden mit CT RL 
+H in den ersten 2 Zeilen 


Bogen 3 


TEST | Schneider/ 
akt 


als Info aufgeführt. So- 
weit so gut? Nicht ganz. 
Unverständlich ist die 
teilweise seltsame Funk- 
tionsbeschreibung. 

“Pfeil hoch ist ab“ (?), 
“Pfeil runter ist auf“‘(?), 
“Cursur und CTRL ist 
Min/Max“ (damit ist ge- 
meint, daß CTRL und 
Pfeil rechts/links an den 
Anfang/das Ende der Zei- 
le springt), “ENTER = 
Eingabe‘ (stimmt nicht, 
ENTER beendet die Mas- 
kendefinition) usw. 

Es ist doch wirklich nicht 
schwer, eindeutige Be- 
zeichnungen zu finden, 


FUNKTION 


Hauptprogramm 
Zeichen/Zeile 


Felder/Satz 
Zeichen/Feld 
Abspeicherung 
Maske 


MD DATA MEDIA 


-*,BIN/*.POS 


mer eine gute Sache wer- 
den könnte, denn hier 
wird immer die absolute 
Satznummer eingetragen. 
Für eine Formatierung 
der Uhrzeit ist mir noch 
keine Anwendung einge- 
fallen (übertrieben?). 

Was mich abschließend 
aber besonders stört: Es 
gibt keinen softwarege- 
steuerten Programmaus- 
stieg. Man muß mit ei- 
nem ““Warmstart“ raus. 
Das ist für ein semiprofes- 
sionelles Programm ein 
Armutszeugnis. 


+++ Auswahlmöglichkeit 
des Bildschirmmo- 


17+1 KB 


Dateivorspann 


MULTIDATEI 
Rainbow Arts 


Eine Definition, die wie- 
der nach dem altbewähr- 
ten Muster geschieht: 

+ Angelegte Masken kön- 
nen eingelesen und 
bearbeitet werden. 

+ Durch intelligente Pro- 
grammierung führt die 
Menüauswahl zur Mas- 
kendefinition oder zur 
Dateneingabe, dadurch 
wird kein eigener Menü- 
punkt verschwendet. 

+ Alter Feldinhalt wird 
immer angezeigt. 

+ Feldbezeichnungen mit 


MD RAINBOW ARTS SCHNEIDERDATEI 
18+1 KB 
80 


12 
255 
ASCII 
Dateivorspann 


18 KB 
80 


So, die Vorarbeit wäre ge- 
schafft. Während ich im- 
mer noch an den funktio- 
nellen Vorteil der Masken- 
erstellung nach dem Sy- 
stem der MULTIDATEI 
von Data Media glaube, 
tendieren alle meine Test- 
personen zur einfacheren 
Version. 


NACH DEM REINEN 


LEISTUNGSKATALOG 
KOMMT DEMNÄCHST 
DIE HANDHABUNG 


Jetzt geht’s endlich los! 
Ich will in meine angeleg- 
ten Eingabemasken Da- 
ten eingeben, diese ab- 
DATA464 

7KB 

40 
(2) unb. 
255 

ASCII 

Dateivorsp. 


(1) 40=Sinnvoller Wert. Es ließen sich theoretisch 840 (Text)-Datenfelder zu 2 Zeichen/Feld definieren, jedoch ohne Feldbezeichnungen und 
nicht über eine Bildschirmseite hinaus. Bei 4Ostelligen Textfeldern mit Feldbezeichnung reduziert sich die Menge auf 21. 


(2) Nur vom Hauptspeicher abhängig. Bei einer gewünschten Datenmenge von 200 sind nicht mehr als 55 Felder möglich. 
(3) Theoretisch 255, jedoch läßt sich der Cursor nicht ermuntern, sichtbar in der Folgezeit zu fungieren. 


oder? Außerdem er- 
schwert der langsam lau- 
fende Cursor (puffert 
nicht) die schnelle Text- 
eingabe. Nachdem ich 
diese Arbeit erledigt ha- 
be, muß ich noch die 
Eingabefelder definieren. 
Dazu wird die Eingabe- 
maske erneut aufgebaut 
und ich fahre die einzel- 
nen Eingabefelder an, 
setze das entsprechende 
Typenkennzeichen 
(S=Textfeld, %=Integer- 
zahl, !=Real-Zahl, 
#=Datum, “=Uhrzeit, 
&=lfd. Nummer) am An- 
fang und am Ende (au- 
ßer Datum, Uhrzeit und 
lfd. Nummer, da wird 
das Format vom Pro- 
gramm gesetzt). Meine 
Eingabemaske erscheint 
mir in Ordnung und ich 
betätige erneut die 
ENTER-Taste, die mich 
zurück ins Hauptmenü 
bringt. Ich sichere die 
Eingabemaske auf Disket- 
te und überlege, daß die 
Sache mit der Ifd. Num- 


dus (80/40 Zeichen/ 
Zeile) 

+ Angelegte Masken 
verwendbar 

+  Catalog-Funktion 

+ Freie Maskendefini- 
tion mit Grafik- 

° zeichen 
+ Feldtypenvergabe 


— Kein softwaregesteu- 
erter Programmaus- 
stieg, sondern nur 
““Warmstart“ 


beschreibungen 

— Langsam laufender 
Cursor ohne Puffe- 
rung 

— Nur soviel Eingabe- 
felder, wie auf eine 
Bildschirmseite 
passen 


— Theoretische Feldlän- 
ge wahrscheinlich 255, 
aber nach dem Zeilen- 


ende ist der Cursor 
nicht mehr zu sehen, 
obwohl das Feld 
dann mehrzeilig 
definiert ist. 


möglich 
— Verwirrende Funktions- 


Blanks oder Punkten 
auffüllbar. 

— Keine Bildschirmposi- 
tion für die Eingabefel- 
der bestimmbar. 

— Keine Feldtypen be- 
stimmbar. 


speichern und wieder la- 
den, dann einen bestimm- 
ten Datensatz suchen und 
letztendlich die Datei sor- 
tieren und ausgeben. 
Mehr darüber demnächst. 
Udo Maass 


NUTZEN 


SIE UNSEREN 


KOSTENLOSEN 


ANZEIGEN- 
SERVICE! 


Mehr auf Seite 47/48 
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TEST 


MASTA: ALLE 
BERECHNUNGEN 

PLASTISCH AUF DEM 
BILDSCHIRM 


Als Software mit dem besten Preis-Leistungsverhältnis bezeichnet unser 


Tester „Masta’’, 


ein speziell für die Verbindung von mathematischer 


Statistik und grafischer Darstellung geschaffenes Programmpaket, 
das dem Schneider-Computer Leistungen ermöglicht, die ihm niemand 


vorher zugetraut hätte 


Statistik ist in den letz- 
ten Jahren immer wichti- 
ger geworden, besonders 
im naturwissenschaftli- 
chen Bereich, bei Psycho- 
logen, Soziologen und 
Pädagogen, wo die kon- 
sequente Auswertung 
von Meßreihen unerläß- 


Diskette stolze 116 KB 
belegt, eine Summe, die 
durch ein Ladepro- 


gramm, fünf mathemati- 
sche Programme und 
drei Datenfiles zustande 


kommt. 
Sämtliche Programme 


sind nicht kopiergeschützt. 


lich enthält der Bild- 
schirm Informationen 
ob, bzw. welche 

Daten im Speicher sind. 
Die Optionen der Me- 
nüs sind ausgeschrieben 
und per Tastendruck aus- 
zuwählen; Rechnungsme- 
nüs werden übersichtlich 


Dreidinensionales Diagrama (Beispiel) 


lich ist und schon beim 
Studium beginnt. Zwar 
liegt es nahe, den CPC 
zu Hilfe zu nehmen, 
doch scheitern die mei- 
sten Programme am Spei- 
cherplatz der notwen- 
dig ist, um wenigstens 
die wichtigsten Berech- 
nungen durchführen zu 
können. 

MASTA (Mathematische 
Statistik), wie sich dieses 
Programm nennt, ist des- 
halb eigentlich ein Pro- 
grammpaket, das auf der 


und das Manual fordert 
sogar dazu auf, sich eine 
Arbeitskopie anzuferti- 
gen. Die Benutzerfüh- 
rung durch alle Program- 
me ist trotz der schwie- 
rigen Thematik sehr kom- 
fortabel. Einen sauberen 
Eindruck macht auch der 
Bildschirmaufbau mit 
klar definierten Windows. 
Der Anwender weiß zu 
jeder Zeit, welches Pro- 
gramm geladen ist und 
welche Routine dabei ab- 
gearbeitet wird. Zusätz- 


mit Überbegriffen aufge- 
führt, so daß Irrtümer aus- 
geschlossen sind. Großes 
Lob verdienen die Pro- 
gramme hinsichtlich der 
Datensicherheit. Es ist 
auch dem unerfahrenen 
Anwendern unmöglich, 
einen Datensatz versehent- 
lich zu löschen, sofern er 
die Warnungen auf dem 
Bildschirm beachtet. Alle 
Programme des MASTA- 
Paketes stehen unterein- 
ander in Verbindung. Das 
heißt, es kann von jedem 
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Programm aus ein ande- 
res eingelesen werden. 

Das Programm DATEN- 
PFLEGE dient zur voll- 
ständigen Erfassung eines 
Versuches. Es können bis 
zu drei Spalten je 100 
Werte eingegeben werden. 
Besondere Probleme der 
Statistik, etwa der Unter- 
schied zwischen den Wer- 
ten Null‘ und ‘Kein Wert‘ 
— man denke nur an die 
Mittelwertberechnung — 
werden berücksichtigt. 
Mit einer einmal erstell- 
ten Tabelle läßt sich so 
ziemlich alles machen, 
was der Ordnung dient. 
Man kann Speichertitel 
und Spaltentitel ändern 
und Werte korrigieren. 
Die Tabelle kann auf den 
Drucker und natürlich auf 
die Diskette gegeben wer- 
den. Außerdem läßt sich 
aus mehreren Tabellen 
auf der Diskette eine völ- 
lig neue zusammenstel- 


‚len, die dann wiederum 


abgespeichert werden 
kann. Langwierige Tipp- 
arbeiten bleiben so er- 


"spart. Als Extra-Service 


kann das Datenpflegepro- 
gramm das Directory je- 
der Diskette auf den 
Drucker bringen und 
hilft dabei, alte Datensät- 
ze zu löschen. 


WERTTABELLEN 
STÄNDIG 
WECHSELBAR 


Erste Ergebnisse zur Ver- 
suchsauswertung liefert 
das Programmteil 
MITTELWERT-BERECH- 
NUNG. Neben einfachen 
Werten wie Mittelwert 
und Streuung (Standard- 
abweichung, Varianz und 
Variationskoeffizient), 
wird es dann auch diffizi- 
ler durch den geometri- 
schen Mittelwert sowie 
den Mittelwertfehler mit 
Vertrauensbereich. Letzt- 
lich können sogar die 
Signifikanzen beim Ver- 
gleich von arithmetischen 
und geometrischen Mit- 
telwerten berechnet wer- 
den, sowohl bei voneinan- 
der abhängigen, als auch 
bei voneinander unabhän- 
gigen Wertreihen. Bei der 
Signifikanzberechnung 
wird das Ergebnis, wie 
schon beim Mittelwert- 


fehler, für drei Überschrei- 
tungswahrscheinlichkei- 
ten genannt. Wie inallen. 
anderen Programmen 
auch können die Wert- 
tabellen ständig gewech- 
selt werden. 

Etwas, was man dem CPC 
bisher gar nicht zutrauen 
wollte, ist die VARIANZ- 
BERECHNUNG. Da zur 
Varianzanalyse ein neuer 
Dateityp angelegt werden 
muß, gibt es hier eine _ 
Dateipflege-Routine, die 
sich ähnlich verhält wie 
das gleichnamige Pro- 
gramm. Mit dem daraus 
gewonnenen Datensatz, 
der zur Wiederverwen- 
dung natürlich auch abge- 
speichert werden kann, 
wird dann die Varianz- 
analyse durchgeführt. 
Wie umfangreich die 
Berechnung ist, erkennt 
man daran, daß die Ta- 
bellen für die Zufalls- 
höchstwerte außerhalb 
des Programmes gelagert 
wurden. Es sind die an- 
fangs schon erwähnten 
Datentabellen auf der 
Diskette. 


MATHEMATISCHES 
GLANZSTUCK: 
VARIANZ 


Auch wenn die Varianz- 
berechnung das mathe- 
matische Glanzstück von 
MASTA ist, wesentlich 
häufiger wird man die 
KORRELATIONS- 
BERECHNUNG benöti- 
gen. Möglich ist die ein- 
fache Korrelation, die 
lineare Korrelation, Be- 
rechnungen mit unabhän- 
giger Größe und sogar die 
artielle Korrelation bei 
onstanthaltung eines 
Merkmales. Kenner der 
Materie werden die grafi- 
sche Darstellung der 
Korrelationen und den da- 
mit in Zusammenhang 
stehenden Regressions- 
koeffizienten vermissen. 
Diese Berechnung ist je- 
doch im grafischen Teil 


von MASTA untergebracht. 


Die GRAFISCHE AUS- 
WERTUNG ist ein “Bon- 
bon“ des Paketes und run- 
det die statistische Auswer- 
tung eines Versuches ab. 
Am relevantesten ist wohl 
die bereits erwähnte Re- 
gressionsgerade. Anwen- 


300; 2 3 4 
Beispiel eınes Balkendiagrammes nit negativen Werten 


5 


6 7 8 £] 18. 


Dıagrama mıt 25 Werten 


Beispiel (Lineare Regression) 


u 


3 %.08 


Regressionskoeffizient = 8.311775113 


der können die Achsen 
mit den Werten ihrer 
Wahl belegen, die Punkt- 
wolke kann durch Koor- 
dinatenlinien übersicht- 
licher gemacht werden, 
die Skaleneinteilung ist 
frei wählbar und es kann 
eine Bildüberschrift ange- 


we ” 
Substanz 


—- 
68.88 


geben werden. Letztlich 
kann sogar auf das Ein- 
zeichnen der Regressions- 
geraden verzichtet werden. 
Ohne große Mühe hat 

man also viel Einfluß auf 
die Gestaltung der Zeich- 
nung. 

Ähnlich viele Freiheiten 
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bleiben beim Aufbau ei- 
nes Balkendiagrammes. 
Man entscheidet über Ach- 
senhöhe und Einteilung, 
über Wertnumerierung 
und Einrücken des Mittel- 
wertes sowie die Eingabe 
einer Textzeile als Bild- 
unterschrift. Alles andere 
wird vom Programm erle- 
digt. Im Diagramm wer- 
den auch negative Werte 
verarbeitet und als beson- 
dere Eigenschaft wird die 
Breite jedes Balkens 
durch die Anzahl der Wer- 
te bestimmt. Dadurch 
wird der optische Ein- 
druck der Zeichnung we- 
sentlich verbessert. Die 
Werte können einzeln 
oder als Gruppen geord- 
net werden. 


AUCH DREI- 
DIMENSIONAL IST 
MÖGLICH 


Weniger der statistischen 
Auswertung als dem all- 
gemeinen Überblick dient 
das dreidimensionale Dia- 
gramm. Auch hier wird 
die Grundfläche der Bal- 
ken und seine Position 
von der Gesamtanzahl der 
Werte bestimmt, so daß 
eine 3-D-Grafik mit we- 
nigen Befehlen zu erstel- 
len ist. Da es durchaus vor- 
kommen kann, daß höhe- 
re Werte in einer vorde- 
ren Reihe niedrigere Wer- 
te in einer hinteren Reihe 
überdecken, ist es recht 
praktisch,die Wertreihen 
austauschen und neu auf- 
bauen zu können. 


FAZIT: 


Insgesamt gesehen ist 
MASTA wohl das stati- 
stische Programm mit 
dem besten Preis-/Lei- 
stungs-Verhältnis. Neben 
dem mathematischen Teil, 
für fachlich interessierte 
Anwender, ist die grafi- 
sche Auswertung wohl für 
alle geeignet, die Zahlen- 
tabellen zu verarbeiten 
haben. Hinzu kommt der 
Service des neuen Verla- 
ges, der beim Verzicht 

auf Kopierschutzmaßnäh- 
men nicht aufgehört hat. 
An der Statistik wird wei- 
tergearbeitet, zusätzliche 
Berechnungen können 
nachgekauft werden. (H.S.) 


TEST 
akt 


ERSTE QUALITÄT 
ZU ANSPRECHENDEM 
PREIS: PANASONIC 


Daß japanische Konzerne 
der Unterhaltungselektro- 
nik auf dem Computersek- 
tor kräftig mitmischen, 
daran hat man sich mitt- 
lerweile gewöhnt. Dem 
Verbraucher kann das ei- 
gentlich nur recht sein, 
solange er, wie im vorlie- 
genden Beispiel, erste 
Qualität zu einem anspre- 
chenden Preis geboten 
bekommt. 


AUFBAU 


Der Panasonic 1080 ist 
ein Matrixdrucker der ge- 
hobenen Leistungsklasse, 
wie seine technischen Da- 
ten belegen. Grundsolide 
präsentiert sich nicht nur 
das stabile beigefarbene 
Plastikgehäuse, sondern 
auch die interne Mecha- 
nik. Der großzügig dimen- 
sionierte Druckkopf mit 
neun Anschlagnadeln wird 
auf zwei kräftigen Stahl- 
achsen geführt, große 


Kühlrippen ermöglichen 0 TECHNISC 


für Dauerbetrieb, und die 


Metallgleitbuchse des Druckarten Semi-Schmal 120 
Druckkopfs verspricht ei- Datendruck, NLQ, Graphik Pica-Breit 40 
ne hohe Lebensdauer der Zeichensät Elite-Breit 48 
Führungseinheit. 96 AScıl. ze; ea Semi-Schmalbreit 60 
Der Panasonic verarbeitet, länd = Be ich Schmaldruck breit 68 
dank Gummi- und Stachel- at: erspezilische Zeichen- Druckgeschwindigkeit 
walze, sowohl Endlos- als ae Pica-Datendruck 100Z/sec 
auch Einzelblattpapier. Zeichen pro Zeile Elite-Datendr. 100Z/sec 
Der Papiereinzug wird Pica 80 NLQ. 20Z/sec 
vom Drucker selbstätig vor- Elite 96 Druckrichtung 
genommen, sobald ein Schmaldruck 137 Bidirektion (Datendruck/ 


Blatt bis zum Anschlag 


Neben der Diskettenstation ist der Drucker 
das wohl wichtigste Peripherie-Gerät für einen 
Computer. Denn nur mit ihm kann man 
Briefe schreiben, Buchhaltung ausdrucken, 
Listings zur Überprüfung erstellen. Schneider- 
aktiv nahm den Panasonic KX 1080 unter die 
Lupe. Der Tester fand nach sechs Monaten 
Betrieb weder Fehl noch Tadel. 


HE DATEN: 


NLO) unidirektional 
- (Grafik) 


Papier 

endlos 

Breite 102-254 mm 
einzel 

Breite: 102-229 mm 
Höhe: 127-363 mm 
Dicke: 34— 70kg 
Durchschläge 


l Original, 2 Durchschläge 


Papierdicke 

max. 0.25 mm (gesamt) 
Lebensdauer Druckkopf 
100 Millionen Zeichen 
Farbband 
Endlosfarbbandkassette 
max. 3 Mill. Zeichen 
Abmessungen 
403x286x115 mm (B/T/H) 
Gewicht 

ca.6 kg 
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eingeführt wurde. Eine 
feine Sache. Gut gelöst 
ist auch die zweigeteilte, 
leicht abnehmbare Druk- 
kerabdeckung, die einer- 
seits eine wirksame Ge- 
räuschdämpfung bewirkt, 
andererseits aber auch ei- 
ne gute Zugänglichkeit zu 
den DIP-Schaltern (Bo- 
denplatte) und der Papier- 
führung gewährleistet. 
Außer dem Netzschalter 
(rechte Gehäuseseite) be- 


> 


finden sich alle Bedienungs- 
elemente auf der Gehäuse- 


oberseite: rechts vorne 
unter der Betriebsanzeige 
die Tasten für “ON LINE“ 
und den Papiervorschub 
(FF u. LF), auf der linken 
Seite der Schalter für die 
hardwaremäßige Einstel- 
lung der Druckarten (Nor- 
mal, NLQ, Verdichtet), 
darüber die Wahlmöglich- 
keit für Einzelblatt-(Fric- 
tion) oder Endlospapier- 
einzug (Tractor). 

Weitere Dauerfunktionen 
lassen sich über die acht 
DIP-Schalter nach dem 
Entfernen einer flexiblen 
Plastikabdeckung einstel- 
len. Acht länderspezifi- 
sche Zeichensätze, auto- 
matischer Zeilenvorschub, 
Perforationssprung, Pa- 
pierseitenlänge, Papieren- 
desensor (Anzeige des 
Papierendes) und Um- 
schaltmöglichkeit auf 7- 
oder 8-Bit Code stehen 


zur Auswahl. Standardmä- 


Big ist der deutsche Zei- 
chensatz bei Lieferung 
bereits eingestellt. 


SOFT- UND HARD- 


WARESTEUERUNG 


Die serienmäßig vorhan- 


dene Centroncs-Schnitt- 
stelle des Panasonic 1080 
arbeitet mit den CPC- 
Rechnern völlig problem- 
los zusammen. Eine 7-Bit- 
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Graphicsimulation, die 
manche speziell an den 
CPC angepaßten Drucker 
offerieren, fehlt allerdings, 
nicht unbedingt zum 
Nachteil des Anwenders. 
Der Panasonic druckt im 
Standardbetrieb eine 

9x9 Matrix, im NLQ-Mo- 
dus die doppelte Dichte 
(18x18). Punktgrafiken 
können bis zu einer Dich- 
te von 1920 Punkten pro 
Zeile ausgeführt werden, 
wobei der Druckweg nur 
einseitig genutzt wird. 

Im Textmodus wird bi- 
direktional und druckweg- 
optimiert geschrieben. 
Die Steuercodes sind voll 
kompatibel zum Epson- 
Standard, so daß Anpas- 
sungsprobleme an gekauf- 
te Software kaum auftre- 
ten dürften. Den Basic- 
Programmierer werden die 
ca. 80 Escape-Sequenzen 
der Software freuen, mit 
denen man so schließlich 
alles einstellen kann, was 
das Herz begehrt: Schrift- 
arten, Bitmusterdruck, 
Zeilenabstand, Papiervor- 
schub, Seitenformatie- 
rung, Datenmanipulation, 
Definition von benutzer- 
eigenen Zeichen, Sonder- 
befehle, Textverarbeitung. 
Selbstverständlich verfügt 
das Gerät über eine Selbst- 
testoption und sogar hexi- 
dezimaler Ausdruck von 
ASCII-Werten ist möglich. 


WERTUNG 


Abgesehen von leichten 
Vibrationsgeräuschen im 
Grafikdruck (z.B. Hard- 
copy) konnte ich am Pa- 
nasonic 1080 in ca. 6 Mo- 
naten Testzeit keine 
Schwachstellen entdecken. 
Der Drucker ist dank sei- 
ner Schnittstellenbelegung 
vielseitig einsetzbar und 
somit zukunftssicher. 
Seine Eignung für den 
Dauerbetrieb, seine 
Schriftqualitäten und 
schließlich das ausgezeich- 
nete Handbuch befriedi- 
gen auch gehobene Lei- 
stungsansprüche. Nicht zu- 
letzt der aktuelle Händ- 
lerpreis (Anzeigenteil le- 
sen!) macht ihn aber zu 
einer allerersten Kauf- 
empfehlung. G.W. 


SchneideyZ 
akt 


DIE KÜRZESTE 
JA/NEIN-ABFRAGE 


In Heft 8/86 brachte 
Andreas Müller seine kür- 
zeste Ja/Nein-Abfrage. 
10 IF INKEYS$“j“ 
THEN 20 ELSE if 
INKEY$‘“n“ 
THEN 30 ELSE 10 


Er fordert die Leser auf, 
eine kürzere zu finden. 
Hier die Reaktion: 
Karl-Heinz Otter: 

Meine um 1/3 kürzere 
Abfrage: 10 ON INSTR 
(“in INKEY$) GOTO 
10,20,30 entspricht 

44 Bytes. 

Friedrich Büchner: 

Hier meine Lösung mit 
39 Zeichen: 

100 ON-INKEY(45)-2 
*INKEY(46) GOTO 
300,200,100 

Alwin Ertl: 

In Ausgabe 8/86 behaup- 
tete Schneider-aktiv-Autor 
Andreas Müller, er besit- 
ze die kürzeste Ja/Nein- 
Abfrage. Doch da ich von 
Natur aus immer das letz- 
te Wort haben muß, setz- 
te ich mich sofort an mei- 
nen CPC und kann nun 
Ihnen, verehrte Leser, 

die wirklich kürzeste Ja/ 
Nein-Abfrage aller Zeiten 
präsentieren. Sie lautet: 


10 ON INSTRC“?JjNn“, 
INKEY$)+1 GOTO 
10,10,20,20,30,30 


Die Routine lehnt alle 
Buchstaben außer J und 
N ab und erfaßt sowohl 
großes als auch kleines 
J bzw. N. Kürzer und 
besser geht’s wirklich 
nicht mehr! 


Andreas Müller, den wir 

davon unterrichteten, 

konterte mit 35 Zeichen 

ohne Blanks: 

10 CALL &BBO6:IF 
INKEY(45)=0 then 
20 else 30 


Alwin Ertl: 
Schneider-aktiv unterrich- 
tete mich von Andreas’ 
Bemühungen. Da er sich 
bei seiner Mini-Abfrage 
Gie Erfassung des N spart, 
tu ich’s auch und schlage 
vor: 
CALL &BB06:IF INKEY 
en THEN 30 ELSE 


SERVICE 


TIPS & 
TRICKS: 
WER KANN 


ES NOCH 
KÜRZER? 


CP/M LIEST 
ALLE DREI 
DISC-FORMATE 


Wer sich ein wenig mit 
dem Schneider-CP/M 
auskennt, weiß, daß der 
CPC drei verschiedene 
Diskettenformate kennt: 


Das CP/M-Systemformat, 


das IBM-Format und das 
Data-Only-Format. 
Unter BASIC kann er 
alle lesen und schreiben, 
ohne daß der Anwender 
davon irgendwas merkt. 
Anders unter CP/M: 
Bislang kamen die CP/M- 
Programme (WordStar, 
Turbo-Pascal usw.) nicht 
in den Genuß der höhe- 
ren Diskettenkapazität 
des Data-Only-Formats 
(178 KByte gegen 169 
KByte beim Systemfor- 
mat) — leider, muß man 
bei der geringen Kapazi- 
tät der Schneider-3°-Dis- 
ketten sagen. 

Wäre die Dokumentation 
von Schneider auch nur 
das Papier wert, auf dem 
sie geschrieben steht, 
dann wäre dieses Pro- 
blem mindestens mal er- 
wähnt worden. Also 
hier die Lösung: Im 
DOS-ROM der CPCs 
sitzt an Adresse #C56C 
eine Routine, die auto- 
matisch das richtige Dis- 
kettenformat ermittelt. 


Dazu muß noch nicht ein- 
mal der Motor einge- 
schaltet sein, das macht 
sie auch selbst! Hier also 
die Befehlsfolgen, die 

ein Programm automa-. 
tisch auf das Disketten- 
format anpassen: 


Assembler 

LD E,0 
CALL #C168 
DEFW #C56C 
LD C,13 
CALL 0005 


Das E-Register enthält 
dazu. die Nummer des 
Laufwerks (im Beispiel O, 
also Laufwerk A). Dann 
wird FirmSwitch aufge- 
rufen (siehe Literatur- 
hinweis 1), gefolgt von 
der Adresse der Erken- 
nungsroutine. Anschlie- 
ßend muß man nur noch 
dem CP/M sagen, daß 
diese Diskette beschrie- 
ben werden darf: Mit 
Hilfe der BDOS-Funk- 
tion 13 (sonst gibt’s ir- 
gendwann den Fehler 
DISK R/O!). Das war’s 
schon. Wie ein Programm 
aussieht, das so ähnlich 
vorgeht, kann man sehr 
schön an FILECOPY. 
COM betrachten. 
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Dieser Tip gilt nur für 

die DDI-I 3°-Floppy 

von Schneider! 

Möge dieser Tip möglichst 
vielen Selbstprogrammie- 
rern helfen. 


Literaturhinweise: 


(1) St. R. Petersen, Firm- 

ware und CP/M; Schnei- 

der-aktiv 2/86 

(2) Brückmann/Schieb, 

Das große Floppy- 

buch (Data-Becker) 
Stefan Ralf Petersen 


WIE KÖNNEN DIE 
MASSENSPEICHER 
SCHNELLER WERDEN? 


Das haben sich sicherlich 
schon viele gefragt. Vor 
allen Dingen CPC 464- 
Besitzer ohne Floppy 
sind arm dran, obwohl 

sie immerhin noch bis 
2000 Baud mit ““SPEED 
WRITE 1‘ gehen können, 
was noch nicht einmal 
bei allen Computern mög- 
lich ist. Doch es geht 
noch schneller, auch 
wenn der CPC nach 
“SPEED WRITE 2“ ein 
“Improper Argument“ 
ausgibt. Mit POKE 
&B8D1 ,2:POKE 
&B8D2,23 bringt es der 


- Daten-Rekorder dann 


Turbo-Pascal 

InLine (30/0) 
InLine (205/SC168) 
InLine (SC56C) 
BDOS (13) 


doch auf 3600 Baud. 
Falls einige CPC 664/ 
6128-Besitzer auch noch 
einen zusätzlichen Daten- 
rekorder betreiben soll- 
ten, hier der Trick: 
POKE &BI1E9,2:POKE 
&BIEA,23. 

Es soll ja CPC-Besitzer 
geben, die glauben, ihre 
sowieso schon schnelle 
Floppy könne nicht 
noch angetrieben werden 
— weit gefehlt! Mit der 
folgenden Routine wird 
die Vortex-Floppy an 
Geschwindigkeit sogar 
noch überholt, die nor- 
mal noch. um einiges 
schneller ist als das 
Schneider-Diskettenlauf- 
werk! 


Hier die Routine: 

10 FOR i=4096 to 4114 
:READa:POKE i, a: 
NEXT:CALL 4096 

20 DATA&21,&OA, 
&10,&DF,&07,&10, 


SERVICE 


&C9I,&OD,&C6,&07, 
&23,&00,&C8,&00, 
&01,&01,&0A,&00, 
&03,&00 


Jens Kahle 


NÜUTZLICHES UNTER- 


PROGRAMM 


Schreibt ein CPC-User 
heute ein Programm, das 
etwas mehr als 2 Blöcke 
in Anspruch nehmen 
soll, überlegt er natürlich 
vorher, ob er nicht auch 
gleich einen Vorspann 
dazu schreiben soll, über 
den nachher das Haupt- 
programm nachgeladen 
wird. Für solche Vorspän- 
ne ist der Zeichensatz 
des CPCs etwas ärmlich 
veranlagt. Nun besteht 
die Möglichkeit, mit 
DRAW & Co. herumzu- 
werkeln. Oder man ver- 
ändert die CPC-eignen 
Zeichen in ihrer Größe. 
Beim Einschalten des 
Computers dürfen die 
Zeichen >240 sofort ver- 
ändert werden. Mit 
SYMBOL AFTER ## 
werden die Zeichen ins 
RAM kopiert, deren 


ASCII-Code >=## ist. 
Nun kann man auch sie 
manipulieren. Diese Ei- 
genschaft macht sich das 
folgende Unterprogramm 
zu nutze. Es verdoppelt 
jede der 8 Zeilen eines 
Zeichens und macht dar- 
aus zwei Zeichen. Um 
jedes beliebige Zeichen 
“‘verdoppeln‘‘ zu können, 
ist es aber wichtig, 
SYMBOL AFTER 32 
vorher einzugeben, da 
sonst nicht alle Zeichen 
ins RAM kopiert werden. 
Das folgende Unterpro- 
gramm kann jederzeit 
mit ##Text$=“Test‘“ 
:LOCATE# ‚# :PEN 
#:GOSUB 64000 aufge- 
rufen werden. Man kann 
es in jedem Modus ver- 
wenden. Jedoch ist auf 
die begrenzte Bildschirm- 
breite vor allem im 
MODE 0 zu achten. 
10 MODE 1: SYMBOL 
AFTER 32: “Wichtig!‘ 


(Ihr Programm) 


64000 FOR ZI=1 TO 
LEN(Text$) 
64010 FOR Z2=0 TO 7 
64020 P=PEEK(&A500 
+(ASC(MID$ (Text$, 
Z1,1))-32)*8+Z2) 
64030 W(Z2)=P:NEXT 
64040 SYMBOL 140,W 
(0),W(O),W(1),W(1), 
W(2),W(2),W(3),W(3) 
64050 SYMBOL 141, 
(W(4),W(4),W(5),W(5), 
W(6),W(6),W(7),W(7) 
64060 PRINT u 
(140);CHR$ (1 
CHRSG): CHRS1aN): 


64070 NEXT:RETURN 
Viele Anwender versuchen 


“ selbstverständlich, auch 


Programme mit Joystick- 
steuerung zu schreiben. 
Die Ansteuerung erfolgt, 
wie bekannt, über die 
Funktion JOY(0) bzw. 
JOY(1). Im Programm 
.erscheinen dann umständ- 
liche und langsame IF- 
THEN-Abfragen oder an- 
dere abenteuerliche Kon- 
“struktionen. Das könnte 
dann so aussehen: 
IF JOY(O)=1 THEN 1000 
IF JOY(0)=2 THEN 2000 
IF JOY(0)=4 THEN 3000 


ON GOTO-Schleifen sind 
deshalb nicht möglich, 
weil statt fortlaufender 
Werte wie 1,2,3...deren 
Zweier-Potenzen erzeugt 
werden. Um trotzdem 
Speicherplatz und Zeit zu 
sparen, kann man sich der 
einfachen Logarithmen- 


regel 

LOG,C=LOG ,0C/LOGJ02 

bedienen. Und so sieht 

dann das Programm aus: 

10 Wert= SO)! 
LOG(2)+1 

20 ON Wert GOTO 
1000,2000,3000... 

Das ‘““+1‘“ wurde deshalb 


eingefügt, weil der LOGso 1 


=0 ist, und ON GOTO- 
- Schleifen bei O nicht ver- 
zweigen. 


Alexander Opaschowski 


Harald Baumgart: 
Höhere Mathematik auf 
dem CPC464 


Vogel-Buchverlag 
Würzburg 1985, 
ISBN 3-8023-0856-5 


Die Mathematik ist das 


ursprüngliche Anwen- 
dungsgebiet der Compu- 
terei. Hier findet man in 
der Regel kurze, aber 

sehr effektive Programme. 
Das vorliegende Buch ent- 
hält viele Standardver- 
fahren der praktischen 
Mathematik, als BASIC- 
Programme für den CPC 
464 ausgearbeitet — ich 
sehe kein Hindernis, sie 
auch auf den anderen 
CPCs laufen zu lassen. 
Einige Stichwörter aus 
dem Inhalt: Darstellung 
von Funktionen, Berech- 
nung der Nullstellen, Ex- 


tremwerte, Integration, 
Vektoralgebra, komplexe 
Zahlen, Determinanten, 
Matrizen, Lineare Glei- 
chungssysteme, Fehler- 
rechnung, Ausgleichsrech- 
nung. Es handelt sich al- 
so um Stoff vom 11. 
Schuljahr bis ins dritte 
Semester Uni bzw. FH. 
Der Preis von 33,— DM 
scheint mir dem Inhalt 
angemessen. 

Der Haken bei der Sache 
ist: Man kann die Pro- 
gramme nur sinnvoll be- 
nutzen, wenn man die 
Verfahren, also die zu- 
grundeliegende Theorie, 
kennt. Diese lernt man 
nur in einem entspre- 
chenden Mathematik- 
Kurs, und dort muß man 
die Programme meist so- 
wieso selbst als Übungs- 
aufgabe anfertigen (aller- 
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dings selten in BASIC). 
Hier kann der Blick in die 
fertig vorliegenden Pro- 
gramme natürlich Arbeit 
sparen. Das Buch ist aber 
nicht zum Lernen der 
Theorie geeignet, dazu 
sind die Erklärungen 
doch zu dürftig und 
auch nicht immer ganz 
in Ordnung: Z.B. ist es 
unsinnig, von einem 
‘Eigenwert einer Deter- 
minante‘ zu sprechen, 
und die Erklärung der 
Lösbarkeit von linearen 
Gleichungssystemen ist 
voll danebengegangen. 
Die Programme sind al- 
lerdings, soweit ich das 
geprüft habe, sachlich in 
Ordnung, auch übersicht- 
lich und gut dokumen- 
tiert. Allerdings sind sie 
nicht immer optimal: 
Z.B. fehlt die Prüfung 
auf Lösbarkeit beim 
Gaußschen Algorithmus; 


die Eingabe von Funktio- 
nen geschieht durch Än- 
derung des Programms 

— hier ist der RSX-Be- 
fehl :PUTLINE aus dem 
2. Schneider-Sonderheft 
von HAPPY-COMPUTER 
wesentlich günstiger. 


FAZIT: 


Das Buch ist geeignet für 
Leute, die so viel Mathe- 
matik können, daß ihnen 
wenigstens einige der ge- 
nannten Stichwörter et- 
was sagen, und die zu faul 
sind, alle- Programme 
selbst zu schreiben. An- 
sonsten legt man sein 
Geld besser für fünf Hef- 
te von SCHNEIDER- 
Aktiv an und spendiert 
für den Rest seiner Freun- 
din ein Eis. 

Klaus Pommerening 


aktiv 


SERVICE 


WENN DAS DISC- 
INTERFACE 
NICHT MIT- 
SPIELEN WILL 


Was machen, wenn man 
ein Programm von Kasset- 
te auf Diskette kopieren 
will und dieses den Spei- 
cherbereich für das Dis- 
ketteninterface über- 
schreitet? Hier eine klei- 
ne Hilfe. 
l. Dies kleine Maschinen- 
programm ab &A0O00 
speichern. 
Data &21,&10,&AA, 
&11,&40,&00,&3E, 
&?2C,&CD,&Al,&BC, 
&C9 
. Auf Kassetten umstel- 
len, PLAY drücken und 
das Maschinenpro- 
gramm aufrufen 
3. Peek (&AA29) 
= msb und Peek 
(&AA28) = Isb der 
Dateilänge 

4. Peek (&KAA26) 
= msb und Peek 
(&AA25) = Isb der 
RAM Adresse 

5. Peek (&AA2B) 
= msb und Peek 
(&AA2RA) = Isb der 
Einsprungadresse 

6. Peek (&AAI1O — 
&AAIF) Filename 

7. Programm laden 

8. Eine günstige Zeilen- 
adresse für das Pro- 
gramm suchen 

9. Diese Verschieberouti- 

ne an einen günstigen 
Platz speichern und 
aufrufen. 
Data &21 ‚Isb (Zieladr.), 
msb (Zieladr.),&11,Isb 
(Quelladr.),msb (Quell- 
adr.), &O1 ,lsb (Datei- 
länge), msb (Dateilänge) 
‚&ED,&B0,&C9 
10.Auf Kassette mit 
‘Save filename,b,Ziel- 
adr.Länge‘ abspeichern. 
11.Den Rechner aus- 
schalten 

12.Das abgespeicherte 

Programm laden und 
auf Diskette erneut 
abspeichern. 

So kopierte Programme 

müssen nach dem Laden 


DD 


in den ursprünglichen Be- 
reich verschoben werden. 
Ist es ein Ladeprogramm, 
muß erst festgestellt wer- 
den, welche Länge der 
Filename hat. Ist er länger 
als 8 Zeichen, muß die 
Kopie geändert werden. 
Gregor Borchardt 


HINWEIS DER 
REDAKTION: 


Wir weisen ausdrücklich 
darauf hin, daß nach dem 
Urhebergesetz (UrhG) 
die Vervielfältigung eines 
Programms für die Daten- 
verarbeitung oder wesent- 
liche Teile davon ohne 
ausdrückliche Einwilli- 
gung des Berechtigten, 
verboten ist. 


BANK- 
MAN 


Wir 6128er werden, was 
Programme anbelangt, ja 
noch nicht sehr verwöhnt 
und müssen froh sein, 
wenn die abgedruckten 
Programme für den 464 
auf unseren Rechnern lau- 
fen. Ich hoffe, daß bald 
noch mehr Programme 
speziell für den 6128 
kommen. 

Ich habe zur Dateiverwal- 

tung eine Verbesserung 

gemacht, mit der ich mir 
erspare, Bankman immer 
extra zu laden. Ich gehe 
folgendermaßen vor: 

l. In Zeile 29 wird der 
Befehl “GOSUB 447“ 
gelöscht. Die Bankman- 
Abfrage wird nun nicht 
mehr angesprungen. 

. Das Dateiprogramm 
speichere ich nun unter 
dem Namen 
“DATEI.PRG“. 

“BANKMAN-BAS“ und 


DD 


“BANKMAN.BIN“ habe 
ich mit PIP von der CPM- 
Diskette auf die Diskette 
übertragen, auf der 
“DATEI.PRG“ vorliegt. 
4. Den Listschutz von 
“BANKMAN.BAS“ 
habe ich aufgehoben 
(z.B. mit 
von M. Kotulla aus 
SCHNEIDER-aktiv 
11/85) und 
5. bei “BANKMAN.BAS“ 
in Zeile 190 den Be- 
fehl “END“ durch 
“RUN “DATEI.PRG“ 
ersetzt und 
6. mit SAVE"“DATEI“ 
abgespeichert. 
Das war’s auch schon. Ge- 
laden wird jetzt mit 
RUN“DATEI‘“. Es wird 
automatisch Bankman 
und anschließend die 


Dateiverwaltung gestartet.. 


Karl-Heinz Köhler 


DBASE 

I UNTER 
CP/M _ 
PLUS 


Wenn man sich als Besit- 
zer nur eines Laufwerks 
die dbase-Workdisc nach 
dem Handbuch anlegt, 
das heißt, die Dateien 
C10CPM3.EMS, 
LANGUAGE.COM UND 
SUBMIT.COM mit auf 
die Workdisc nimmt, 
wird man staunen, wenn 
man sich den verbliebe- 
nen Speicherplatz ansieht: 
Es verbleiben magere 

7 KByte!! Das ist natür- 
lich lächerlich, denn 

nach wenigen Datensät- 
zen ist Schluß, von 
CMD-Dateien ganz zu 
schweigen. Eine andere 
Lösung wird im Hand- 
buch nur angedeutet: 
CP/M von einer anderen 
Diskette starten, dann die 
Dbase-Workdisc ohne’ 
C10CPM3.EMS einlegen 
und Dbase aufrufen. Jetzt 
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“UNPROTECT“ 


TIPS 


FÜRS 
JOYCI 


sind etwa 33 kByte auf 
der Diskette frei. 

Es gibt aber noch ein Ver- 
fahren, bei dem man we- 
sentlich mehr Speicher- 
platz gewinnt: Man speckt 
Dbase einfach auf die zum 
Betrieb notwendigen Tei- 
le ab und bringt auf die 
Workdisc lediglich die Da- 
teien DBASE.COM und 
DBASEOVR.COM. Alles 
andere bringt man auf ei- 
ne andere Disc. Von die- 
ser startet man CP/M, 

legt die Workdisc ein und 
ruft Dbase auf. Ich habe 


SERVICE | Schneider/ 


& TRICKS 
CHNEIDER 


= UND 


OMPUTER 


die Startdisc auf der Rück- 
seite der Workdisc instal- 
liert und noch einige nütz- 
liche CP/M-Dienstpro- 
gramme wie PIP.COM 

und TYPE.COM abgelegt. 
So habe ich immer alles 
schön zur Hand. 


2. AUTO-START 
FÜR DBASE 


Wenn man hiernach ver- 
fährt, hat man einen frei- 
en Speicherplatz von 

90 KByte! Ist das etwa 
nichts? 


Dbase II bietet die Mög- 
lichkeit, in den CMD-Da- 
teien Anwenderprogram- 
me zu erstellen. Diese 
kann man mit etwas Ge- 
schick und guter Menü- 
führung so gestalten, daß 
auch ein Computerlaie 
damit arbeiten kann. 
Wenn aber der Computer 
gestartet werden soll, ist 
eine ziemlich umständ- 
liche Prozedur notwendig, 
bis man erstmal im An- 
wenderprogramm ist. 

Bei dem in Tip 1 beschrie- 
benen Verfahren sieht 


das so aus: 

Startdisc einlegen 
Eingabe >CPM< 
Diskette wechseln 
Eingabe >dbase< 
Eingabe >do progname< 


Ein Anwender hat also 
viele Schritte richtig zu 
vollziehen und es bedarf 
wahrscheinlich eines 
Zettels am Computer, da- 
mit das alles auch klappt. 
Schlimmer aber noch: 
Der Anwender kommt 
sowohl auf die CP/M- als 
auch auf die Dbase-Be- 
triebsebene. Da hat er 
aber gar nichts zu suchen, 
denn bei Falscheingaben 
kann er viel Schaden an- 
richten. 

Es gibt aber eine elegante 
Möglichkeit, dies zu ver- 
meiden. Folgende Schrit- 
te sind dazu nötig: 


l. Die Datei DBASE. 
COM (auf der work- 
disc) umbenennen in 
DO.COM 
Jetzt hat man die Mög- 
lichkeit, mit dem Be- 
fehl > do progname 
cmd< dbase zu starten 
und gleichzeitig eine 


CMD-Datei aufzurufen. 


2. Auf der Startdisc muß 
die Datei PROFILE. 
COM geändert werden. 
Diese Datei ist eine 
Stapeldatei und wird 
vom Betriebssystem 
beim Start von CP/M 
automatisch aufgeru- 
fen. Von hier aus wer- 
den u.a. die Voreinstel- 
lungen wie Farben, 
Zeichensatz, Tastatur 
etc. installiert. 

Mein PROFILE.SUB 
sieht folgendermaßen 


aus: 
palette 24,0 
language 2 

setkeys keys.ccp 
setkeys dbasc.key 

b: do progname.cmd 


Es werden hier (Zeile 1) 
die Farben auf paper 
grün/pen schwarz gestellt, 
Zeile 2 ist Sprache 
deutsch, Zeile 3 und 4 
startet die zur Installa- 
tion von Dbase nötigen 
Files. Die Zeile 5 ist der 
eigentliche Trick: Hier 
wird b: als Default-Lauf- 
werk gesetzt und Dbase 
gestartet. 
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Anschließend wird wie- 
der auf a: geschaltet und 
das Anwenderprogramm 
gestartet. Hier bietet sich 
z.B. Passwortabfrage und 
Datumseingabe an. 
Folgender Ablauf ist jetzt 
noch zum Start des Com- 
Be notwendig: 

tartdisc einlegen 
Eingabe >CPM< 
Bei Ertönen des Piepstons 
Workdisc einlegen und 
Taste drücken 
Nochmaligen Piepston 
mit Tastendruck quittie- 
ren e 


Das war die ganze Start- 
prozedur; man ist jetzt im 
Anwenderprogramm. 
Das Verfahren eignet sich 
auch zum Start von 
Dbase ohne Anwenderpro- 
gramm: Man gibt statt 
“b: do progname.cmd“ 
lediglich “b: do“ ein. 
Dann landet man im Be- 
triebssystem von Dbase. 
Das Passwort heißt ““pass‘‘ 
Es kann jedoch in der 
variablen pw beliebig ge- 
ändert werden. Nach dem 
Start wird der Benutzer 
aufgefordert, das Pass- 
wort einzugeben. Das 
Bildschirmecho ist hier- 
bei ausgeschaltet, damit 
ihm kein Zuschauer das 
Passwort klauen kann. 
Bei falschem Passwort 
wird er darauf hingewie- 
sen und zu neuer Einga- 
be aufgefordert. 
Er hat drei Versuche, 
dann wird Dbase abgebro- 
chen und er landet im 
CP/M. Bei richtiger Pass- 
worteingabe wird er auf- 
gefordert, das Datum 
einzugeben. Anschlie- 
ßend wird das Hauptpro- 
gramm aufgerufen. 
Karl-Hein Köhler 
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LISTING 


GALAKTISCHER 


HANDLER-EIN 


BERUF FÜR SIE? 


Ein Strategiespiel im 
Weltraum — lauffähig auf 
allen CPCs mit Disketten- 
station DDI-I bzw. einge- 
bauter Floppy. 

“Space Trader“ besteht 
aus vier Programmen, die 
Sie bitte unbedingt unter 
den im Listing jeweils 
angegebenen Namen 
abspeichern. Da ist zu- 
nächst einmal das Start- 
programm (TRADER. 
BAS), welches einen Titel- 
vorspann erzeugt und das 
gewünschte Programm 
nachlädt. Als nächstes be- 
nötigen Sie das Installa- 
tionsprogramm (INSTI. 
BAS). Damit werden die 
Grunddateien angelegt, 
die Sie für das erste Spiel 
benötigen. Als drittes soll- 
ten Sie das Spiel-Haupt- 
programm (TRADMNS. 
BAS) eingeben. Den Game 
Creator (INST2.BAS), 

mit dem Sie sich eigene 
Spielfelder anlegen kön- 
nen, dürfen Sie sich ruhig 
für einen verregneten Tag 
aufheben. 

Beachten Sie bitte, daß 
mit dem SPACE TRADER 
diverse Files angelegt 
werden können, die alle 
mit dem Suffix .SPT en- 
den. Dieses Suffix sollten 
Sie auf derselben Diskette 
vorsichtshalber nicht mehr 
verwenden. Am besten 
reservieren Sie für das 
Spiel gleich eine Disket- 
tenseite; dann hat nämlich 
auch noch eine ansehn- 
liche Sammlung von Spiel- 
feldern Platz. 

Die Spielsituation ist fol- 
gende: Im Jahre 2587 
(oder sonstwann in der 
näheren oder ferneren Zu- 
kunft) sollten Sie sich als 
kosmischer Klinkenputzer, 


sprich Vertreter, Ihre Bröt- 
chen verdienen. Daß das 
nicht so einfach ist, ver- 
steht sich von selbst. Da- 
her gibt es auch verschie- 
dene Schwierigkeitsstufen. 
Nach der ersten Eingabe 
Ihres Namens sind Sie au- 
tomatisch als “Greenhorn“ 
gespeichert. Jedesmal, 
wenn Sie bei einem Spiel 
Ihr vorgegebenes Zielkapi- 
tal erreicht haben, rücken 
Sie um eine Stufe höher 

in der Rangordnung. So 
können Sie über “Ama- 
teur“, ‘“Halbprofi‘“ und 
“Profi“ schließlich zum 
“Handelskapitän“ avan- 
cieren. 


DIE WELT IM 
JAHR 2587 


Damit Sie sich im Jahre 


2587 auch zurechtfinden, 


folgen nun einige Infor- 
mationen über Ihr Ein- 
satzgebiet. Es besteht aus 
40x20 Quadranten. Die- 
ses Gebiet stellt jeweils 
einen Raumsektor dar. 
Der Sektor ORION wird 
von INST1.BAS automa- 
tisch installiert. Weitere 
Sektoren können Sie mit 
dem Game Creator ein- 
richten, der später bespro- 
chen werden soll. 
In jedem Quadranten 
kann Gewinn auf Sie war- 
ten, aber auch Gefahr. 
Auf den Planeten droht 
Ihnen jedoch keine. Sie 
werden in vier Entwick- 
lungsstufen eingeteilt: 
Stufe 1 
— Agrarplanet 
Stufe 2 
— Industrieplanet 
Stufe 3 
— Planet im Atomzeit- 
alter 


Stufe 4 

Planet im Raumfahrt- 
zeitalter 

Und natürlich gibt es 


auch unbewohnte Welten. 


Auf jedem Planeten kön- 
nen Sie Waren verkau- 
fen und neu einkaufen 

— vorausgesetzt, es gibt 
dort einen Absatzmarkt 
für Ihre Ladung: Es dürf- 
te wohl verständlich sein, 
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daß ein Agrarplanet we- 
nig Verwendung für 
Kernbrennstäbe hat. Auf 
einem Planeten der Ent- 
wicklungsstufe 4 können 
Sie außerdem Treibstoff 
kaufen und Ihr Raum- 
schiff, falls es beschädigt 
ist, reparieren lassen. Das- 
selbe ist auch auf einer 
Raumstation möglich. 
Die Unterschiede im 
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Preisniveau werden Sie 
bald selbst herausfinden. 
Patrouillenkreuzer der 
Space Police werden Ih- 
nen keinen Ärger ma- 
chen — sofern Sie keine 
illegale Ladung an Bord 
haben. Sollte dies doch 
der Fall sein, können die- 
se Weltraumbullen sehr 
unangenehm werden. 
Desgleichen unangenehm 
sind Raumpiraten. Von 
diesen Zeitgenossen soll- 
ten Sie lieber Abstand 
halten. Hin und wieder 


taucht auch ein Kollege 
von Ihnen im All auf. Es 
hat in der Regel angeneh- 
me Folgen, wenn Sie ihm 
bei der Reparatur seines 
defekten Raumschiffs 
helfen. Doch auch unter 
“Space Traders‘‘ gibt’s 
manches schwarze 
Schaf... 

Nicht jeder Vorbeiflug 
eines Raumschiffs (Space 


Police, Pirat oder Händ- 
ler) führt aber notwendi- 
gerweise zum Kontakt. 
Trotzdem sollten Sie der 
Polizei lieber aus dem 
Weg gehen, wenn Sie 
Illegales transportieren. 
Nicht aus dem Weg gehen 
können Sie aber Meteo- 
riten. Sie selbst können 
nicht in einen Meteori- 
tenschwarm hineinflie- 
gen (dafür sorgt der Bord- 
computer). Wohl aber 
kann ein Meteoriten- 
schwarm Ihren Kahn 


streifen. Das führt meist 
zu Beschädigungen, die 
Sie schnell reparieren las- 
sen sollten. Bei einer Be- 
schädigung von über 90% 
ist der Kübel nämlich im 
Eimer. Und Ihre Karriere 
beendet. 

Normalerweise ist es 
auch unmöglich, daß Sie 
in ein Schwarzes Loch 
steuern. Trotzdem sind 


diese Black Holes unan- 
genehme Hindernisse; vor 
allem, wenn der Treib- 
stoff zur Neige geht. 

In militärisches Sperrge- 
biet einzufliegen, ge- 
schieht auf Ihre eigene 
Gefahr. Es mag zwar ei- 
ne bequeme Abkürzung 
sein; aber sind Sie sicher, 
daß Sie das Risiko einge- 
hen wollen, abgeschos- 
sen zu werden? 


ORTUNG UND 
NAVIGATION 


Im Cockpit links oben ist 
die Anzeige für die Nah- 
bereichsortung. Sie, gibt 
die Umgebung Ihres 
Raumschiffs wieder. Die 
Taste O blendet um auf 
Fernortung. Dabei ist die 
Reichweite der Anlage 
abhängig von der Qualität 
Ihrer Rostkiste, welche 
wiederum von Ihrem er- 
reichten Status abhängt. 
Als Greenhorn spielen Sie 
Blindekuh, als Handels- 
kapitän haben Sie den 
vollen Durchblick. Die 
Symbole auf dem 


Orterbildschirm bedeuten: 


Punkt 

— leerer Raum 

Fragezeichen 

— außer Orterreichweite 

grüne Kugel 

— Planet 

rotes, längliches Gebilde 

— Raumstation oder 
Raumschiff 

roter Punkt 

— Meteoritenschwarm 

weißer Kringel 

— Black Hole 

rotes Quadrat mit Kreuz 

— Sperrgebiet 


Der Entwicklungsstand 
eines Planeten offenbart 
sich erst nach der Lan- 
dung, die Absichten eines 
Raumschiffs erst nach 
dessen Annäherung. 

Ein “Kompaß“ zeigt Ih- 
nen die Richtung an, in 
die Sie fliegen dürfen 
(grün) oder nicht dürfen 
(rot). Weiß angezeigte 
Quadranten sind mit Vor- 
sicht zu genießen. Die 
Taste F und anschließen- 
de Eingabe der entspre- 
chenden Ziffer (an der 
Richtungsanzeige abzule- 
sen) steuert Ihr Raum- 
schiff in den angegebenen 
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Sektor. Das kostet Sie 
jedesmal 150 Einheiten, 
den nachfolgenden Start 
mitgerechnet. 


FINANZIELLES 


Bei der Navigation ist nur 
das Warten (Taste W) um- 
sonst. Diese Taste werden 
Sie z.B. dann benutzen, 
wenn Sie von Meteoriten 
umzingelt sind. Dann 
können Sie nämlich wirk- 
lich nur noch hoffen, daß 
sich bald eine Lücke im 
Schwarm bildet, durch 
die Sie sich verkrümeln 
können, ohne zerkrümelt 
zu werden. Die interkos- 
mische Währungseinheit 
im Jahr 2587 ist der 
Credit. Gewöhnen Sie 
sich daran. Es folgt eine 
Übersicht über die Han- 
delswaren, die Sie trans- 
portieren können. Die 
erste Zahl bedeutet je- 
weils die Gewinnspanne 
der Ware, die zweite Zahl 
ist Ihr Mindeststatus und 
die dritte der Mindestent- 
wicklungsstand der Ein- 
kaufs- bzw. Absatzwelt. 
— Getreide,5%,1,1 

— Saatgut,6%,1,l 

— Frischgemüse ,8%,1 ‚1 
— Fleisch, 10%,1,1 

— Stahl, 15%,1,2 

— Edelmetalle,20%,2,2 
— Industrieanlagen, 25%, 


2; 
— Computer, 25%,3,3 
_ 2 LIDIEBESIEDSI0N 
3 
_ 5 KIOTbauteale, 20, 


— Raumschiffersatzteile, 
70%,4,4 

— Triebwerke,80%,4,4 

— Navigationscomputer, 
85%,4,4 

— Waffen, 200%, ,2 

— Schnaps,500%,-,2 


Die drei letztgenannten 
sind sicher am lukrativ- 
sten, allerdings sämtlich 
illegal. Wenn Sie sich von 
der Raumpatrouille er- 
wischen lassen, ist die Be- 
schlagnahme sicher. Wer 
zuviel riskiert, ist näm- 
lich schnell pleite: Nach 
der Landung auf einem 
Planeten müssen noch 


Bitte lesen Sie weiter 
auf Seite 32 


Schneide 
akt 


100 FIEELNERBIEHENRENEIELENEITVDIKTENEEIITINT 
7PYYIYIIIITTITT TI IT II III I HH 
110 ’ SPACE TRADER Startprogramm 
V1.0 13/06/86 7 
120 ’ Dateiname: TRADER.BAS 
’ 
130 ’ by Alwin Ertl 
’ 
140 711 1 IITTITTITT TI IT ITT TI IT HT T T IT IT I I I I I I 9 9 9 
71 IT TI ITTITTTII III HH 
150 ’ 


160 SYMBOL AFTER 238:OPENOUT "dummy'" :MEM 
ORY HIMEM-1:CLOSEOUT 

170 INK 0,0:PAPER 0:BORDER 0:INK 1,15:IN 
K 2,7:INK 3,25:MODE 1 

180 PEN 1:a$="SPACE TRADER" 
0 

190 PEN 3:a$="Ein Strategiespiel":h=6:G0 
SUB 340:a$="im Weltraum":h=7:GOSUB 340 
200 PEN 2:a$="(c) 1986 by":h=15:GOSUB 34 
0O:a$="Al ’Big Bug’ Ertl":h=16:GOSUB 340 
210 PEN 3:a$="Bitte Taste betaetigen":h= 
25:GOSUB 340 

220 t=0:FOR i=200 TO 20 STEP -10:SOUND 2 
‚1,4,4:SOUND 1,1/2,4,4:SOUND 4,i-2,4,4:1 
F INKEY$<>"" THEN t=-1 

230 NEXT i:IF NOT t THEN 220 

240 CLS:PEN 1:a$="SPACE TRADER - 
auswahlliste":h=1:GOSUB 340 

250 PEN 3:LOCATE 1,5:PRINT"A >>> Grundda 
teien installieren":LOCATE 1,8:PRINT"B > 
>> Neue Karten aufbauen":LOCATE 1,11:PRI 
NT"C >>> Spielen" 

260 t$="":WHILE t$="" OR INSERNTABO LER) 
=0:t$=UPPER$ (INKEY$) :WEND 

270 CLS:PEN 2:a$= "Programm" :h=10:G08UB 3 
40:a$="wird":h=11:GOSUB 340:a$="geladen" 
:h=12:GOSUB 340 

280 PEN 3:a$="Einen Moment, 
24:GOSUB 340 

290 ON INSTR("ABC",t$) GOTO 300,310,320 
300 RUN"inst1" 

310 RUN"inst2" 

320 RUN"tradmns" 

330 ’Unterprogramm: Text zentrieren 
340 LOCATE 20-LEN(a$)c2,h:PRINT a$; 
RN 


!:h=2:GOSUB 34 


Haupt 


bitte...":h=s 


:RETU 


-100 20112121 1 1 1 1 1 ı 1 1 1 1 1 1 1 9 93 
732323211311 1 1 1 1 31 1 91 91 9 93 
110 ' SPACE TRADER Installation 
V 1.1 13/06/86 ! 
120 ’ Dateiname: INSTI1.BAS_ 
’ 
130 ” by Alwin Ertl 
’ 
140 ET ILIITITTEETITTTTIT TEEN TI 
7 III TTTTITIT III II I I I 9 
150 ’ 


160 INK 0,0:PAPER 0:INK 1,6:PEN 1:BORDER 
0:MODE 2 

170 PRINT CHR$ (24); "Space Trader - 
tallationsprogramm" ;CHR$(24) 

180 PRINT: PRINT:PRINT: PRINT 

190 PRINT"Dieses Programm installiert di 


Ins 


LISTING 


e Startdateien fuer SPACE TRADER.":PRINT 
"Bitte stellen Sie sicher, dass genuegen 

d Platz auf der Diskette vorhanden ist. 
Start mit beliebiger Taste." 

200 WHILE INKEY$="":WEND 

210 PRINT: PRINT: PRINT: PRINT 


220 READ a$:PRINT"Raumsektor: ";a$ 


230 dat$=a$+".SPT":OPENOUT dat$ 
240 FOR i=1 TO 20:READ b$:b$=UPPER$(b$) 
250 FOR j=1 TO LEN(b$):PRINT#9,ASC(MID$( 


b$,3,1))-65 

260 NEXT j,i:CLOSEOUT 
270 OPENOUT "ranks.spt" 
INT#9,3:PRINT#9,"aktiv-Team! 


:PRINT#9,"CPC":PR 
:PRINT#9,1:P 


RINT#9,"Mad Max" :PRINT#9,5:CLOSEOUT 

280 CLS:PRINT"Raumsektor ";a$;" gespeich 
ert.":PRINT:END 

290 ’Daten 


300 DATA Orion 

310 DATA aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 
aaaaaaaaa 

320 DATA aakaaaaaaaaaaaaaaaaaaadaaaaajaa 
aaaaaafaa 

330 DATA aaaabaaaaaaeaaaaaaahaaaaaaaaaaa 
acaagaaaa 

340 DATA aaaaaaaaiaaaagaaaaaaaaaaaaaaaaa 
aaaaaaaaa 

350 DATA aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 
aaaaaaaaa : 

360 DATA aafaakaaaaaaaaaaaaaaaaaaalaaafa 
aaaajiaaaa \ 

370 DATA aaaaaaaaaaakaaaaaaabaaaaaaaaaaa 
aaaaaaaaa 

380 DATA aagaaaaacaaaaaaaaaaaaaaaaaaaaaa 
aaaaaaaaa 

390 DATA aaaaaaaaaaaaaaafaammmmmmaaaaaaa 
anaaaaaaa 

400 DATA aaaaaakaaaaaaaaaaammmmmmaaaaafa 
aakaacaaa 

410 DATA aaaaaaaaaaaanaaaaammmaaaaaaaaaa 
aaaaaaaaa 

420 DATA aakaaaaabaahaaaaaaaaaaaeaaahaaa 
aaaaaacaa 

430 DATA aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 
aaaaaaaaa 

440 DATA aaabaaaaaaaaaaaaaaaaaaaaaaaaaaa 
aabaaaaaa 

450 DATA aaaaaaaaagaaadaaaaaaaaaanagaaaa 
aaaaaaaaa F 

460 DATA aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 
aaaahaaaa 

470 DATA aaaaaaaaaaaaaaaaaafaakaaaaaaeaa 
aaaaaaaaa 

480 DATA aahaaaaeaaaaaaaaaaaaaaaaaaaaaaa 
aaaaaaaaa 

490 DATA aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 
aalaaaaaa . 

500 DATA aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 
aaaaaaaaa 


PRIVATE KLEINANZEIGEN 


SIND KOSTENLOS IN 
SCHNEIDER AKTIV! 
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LISTING Schneider 


100 17Y 1 17T TI TTTHITITTTLTTTTTT TI III III HH 
27T ITTIITIITTTT TI I I I II I I 9 9 
110 ’ SPACE TRADER - Hauptprogramm V 
1.0 12/06/1986 
120 ’ Dateiname: TRADMNS.BAS 
’ 
130 ’ by Alwin Ertl 
’ 
140 7)Y1y 11T TTTTTITTTTTIHTTTT HT TTTT TI II IH 
7PYIIYITIIITIIITIIT III II II IH 
150 ’ 
160 ’ 
170’ Hauptprogramm 
180 ’ 
190 ’Start 
200 DIM sek(40,20),stat(5),sk(5),zk(5),1 


adung$(16),ladungab(16),1ladungauf(16),ge 
winn(16),spos(100,1),mpos(100,1):xalt=0: 
yalt=0:lad=0:ladwert=0:besch=0:sz=0:mz=0 
:treib=5000 

210 FOR i=1 TO 5:READ stat$(i),sk(i),zk( 
i):NEXT i:FOR i=1 TO 16:READ ladung$(i), 
ladungab(i),ladungauf(i),gewinn(i):NEXT 
ı Pr 
220 SYMBOL 250,&3C,&7E,&FF,&FF,&FF,&FF,& 
TE,&3C:SYMBOL 251,0,0,&7E,&FF,&FF,&7E:SY 
MBOL 252,0,0,0,&18,&18:SYMBOL 253,0,&3C, 


&42,&42,&42,&42,&3C0:SYMBOL 254,&FF,&C3,& 


B5,&99,&99,&B5,&C3,&FF 

230 INK 0,0:PAPER 0:BORDER 0:INK 1,26:IN 
K 2,21:INK 3,6:MODE 1 

240 PEN 3:PRINT"SPACE TRADER" 
T:PRINT"Dein Name:" 


:PEN 1:PRIN 


250 LOCATE 1,5:PRINT"Dein Status:":PRINT 
"Startkapital: Credits" :PRINT"Zi 
elkapital: Credits" 


260 LOCATE 1,10:PRINT"In welchem Raumsek 
tor willst Du arbei- ten?":PEN 2 

270 LOCATE 12,3:INPUT ""‚name$:gef=0 

280 OPENIN "ranks.spt":WHILE NOT EOF:INP 

UT #9,vgl$,st:IF vgl$=name$ THEN gef=-1: 
status=st:kap=sk (st) 

290 WEND:CLOSEIN:IF gef THEN 320 

300 status=1:kap=sk(1):OPENIN "ranks.spt 
":OPENOUT "ranks.new":PRINT#9,name$:PRIN 

T#9,status:WHILE NOT EOF: INPUT #9,vgl$,s 
t:PRINT#9,vgl$:PRINT#9,st:WEND:CLOSEIN:C 
LOSEOUT 

310 alt$="ranks.spt":neu$="ranks.new" 

RA,äalt$:uREN,aalt$,äneu$ 

320 LOCATE 14,5:PRINT stat$(status) :LOCA 
TE 15,6:PRINT USING"#######";sk(status): 
LOCATE 14,7:PRINT USING" #######" ;zk(stat 
us) 

330 LOCATE 6,11:INPUT 

.spt" 

340 LOCATE © 15:PRINT"Bitte einen Moment 
Geduld..." 

350 sek$=UPPER$(sek$) :OPENIN sek$:FOR i= 
1 TO 20:FOR j=1 TO 40:INPUT #9,sek(j,i) 
360 IF sek(j,i)=8 OR sek(j,i)=9 THEN sz= 
sz+t1l:IF sz>100 THEN sz=100 ELSE spos(sz, 
O)=j:spos(sz,1)=i 

370 IF sek(j,i)=10 THEN mz=mz+1:IF mz>10 
O THEN mz=100 ELSE mpos(mz,0)=j:mpos(mz, 
1)=i 


:üuE 


"",sek$:sek$=sek$+ 


akti 


380 NEXT j,i:CLOSEIN 

390 RANDOMIZE TIME:x=INT(40*XRND+1):y=INT 
(20XRND+1):IF sek(x,y) THEN 390 

400 IF status=1 THEN radius=2 ELSE IF st 

atus=2 THEN radius=3 ELSE IF status=3 TH 

EN radius=5 ELSE IF status=4 THEN radius 

=8 ELSE radius=21 

410 GOSUB 1880 

420 ’Raumschiffe und Meteoriten bewegen 

430 FOR i=1 TO sz:help=sek(spos(i,0),spo 

s(i,1l)):sek(spos(i,0),spos(i,1))=0 

440 IF spos(i,0)=x AND spos(i,1)= =y THEN 

500 

450 IF RND>O.5 THEN xp=SGN(RND-RND):yp=S 

GN(RND-RND) 

460 IF RND>O.7 THEN xp=0 

470 IF RND>O.7 THEN yp=0 

480 IF spos(i,0)+xp<1 OR Et 
OR spos(i,1)+typ<1 OR spos(i,1)+yp>20 OR 
(spos(i,0)+xp=x AND spos(i,1)+yp=y) THE 

N 450 

490 IF sek(spos(i,0)+xp,spos(i,1)+yp)=0 

THEN spos(i,0)=spos(i,0)+xp:spos(i,1)=sp 

os(i,1l)+typ 

500 xtest=spos(i,0):ytest=spos(i,1):GOSU 

B 1840:spos(i,0)=xtest:spos(i,1)=ytest 

510 sek(spos(i,0),spos(i,1))=help:NEXT i 

520 FOR i=1 TO mz:sek(mpos(i,0),mpos(i,l 
))=0:versuche=0 

530 xp=SGN(RND-RND) :yp=SGN(RND-RND) 

IF RND>O0.9 THEN xp=0 

IF RND>O0.9 THEN yp=0 

IF mpos(i,0)+xp<1 OR mpos(i,0)+xp>40 

mpos(i,1)+yp<1 OR mpos(i,1)+yp>20 TH 

EN 530 

570 IF sek(mpos(i,0)+xp,mpos(i,1)+yp)<>O 
THEN versuche=versuche+1:IF versuche>5 

THEN 590 ELSE 530 

580 mpos(i,0)=mpos(i,0)+xp:mpos(i,1)=mpo 

s(i,1)+yp:xtest=mpos(i,0):ytest=mpos(i,l 
):GOSUB 1840:mpos(i,0)=xtest:mpos(i,1)=y 

test:sek(mpos(i,0),mpos(i,1))=10 

590 NEXT i 

600 ’Raumschiff steuern 

610 GOSUB 1940:GOSUB 2080 

620 IF kap>zk(status) THEN 1440 

630 IF sek(x,y)=0 THEN :1490 

640 ON sek(x,y) GOTO 650,650,650,650,650 
‚980,1110,1110,1110,1300,1360,1390 

650 ’Planet 

660 PEN 3:LOCATE 17,1:PRINT"Planet":IF x 

alt<>x OR yalt<>y THEN LOCATE 5,3:PRINT" 

Landung? J/N:" ELSE 1490 

670 t$="":WHILE t$="" OR INSTR("JN",t$)= 
0:t$=UPPER$(INKEY$):WEND:IF t$="N" THEN 
LOCATE 17,1:PRINT SPACE$(20):LOCATE 5,3: 
PRINT SPACE$(20):GOSUB 1940:GOSUB 2080:G 
OTO 1490 

680 xalt=x:yalt=y:LOCATE 19,3:PRINT"J":t 
reib=treib-150:IF treib<=0 THEN 1660 

690 IF sek(x,y)=5 THEN 960 

700 CLS:PRINT"Entwicklungsanalyse":PRINT 
:PEN 1:PRINT"Planet auf Entwicklungsstuf 
e";sek(x,y);".":PRINT 

710 IF ladungauf(lad)>sek(x,y) THEN PRIN 
T"Fuer ";ladung$:PRINT"ist das kein Absa 


‘ 
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SchneideyZ 


akt 


tzmarkt!":WHILE INKEY$="":WEND:GOSUB 194 

0:GOSUB 2080:GO0OTO 420 

720 WHILE INKEY$="":WEND 

730 CLS:PRINT"Ladung im Wert von 

. Credits":PRINT"verkauft fuer 
edits." 

t*(gewinn(lad)/100)):kap=kap+tladwert+gew 

740 IF kap<1000 THEN 1700 

750 PEN 3:LOCATE 20,1:PRINT USING"###### 

#";ladwert:LOCATE 15,2:PRINT USING"##### 

##";ladwert+gew:LOCATE 1,4:PRINT"Neue La 

dung" 

760 lad=0O:ladung$="":ladwert=0:neu$="A 

FOR i=1 TO 16:IF RND>O.4 AND 
<=zstatus AND ladungauf(i)<=sek(x,y) THEN 
neu$=neu$+CHR$(65+i) 

770 NEXT i:IF neu$="A" THEN 760 

780 PEN 1:LOCATE 1,5:PRINT"A nichts":FOR 
i=2 TO LEN(neu$):LOCATE 1,4+i:PRINT MID 
$(neu$,i,1);" ";ladung$(ASC(MID$.(neu$,i, 
1))-65):NEXT i 

790 LOCATE 1,24:PRINT"Vermoegen: 
Credits.":PEN 3:LOCATE 12,24:PRINT USIN 

G"#######";kap 

800 PEN 1:LOCATE 1,22:PRINT"Kaufe Nr. "; 

810 t$="":WHILE t$="":t$=UPPER$(INKEY$): 

WEND 

820 IF INSTR(neu$,t$)=0 THEN 810 ELSE PR 
INT. t$;:IF t$="A" THEN 850 ELSE lad=ASC( 

t$)-65:ladung$=ladung$(lad) 
830 LOCATE 1,22:PRINT"Fuer 
ts einkaufen (>1000).":PEN 3 
840 LOCATE 7,22:INPUT"",‚,ladwert:IF ladwe 
rt<1000 OR kap-ladwert<O THEN LOCATE 7,2 
2:PRINT" ":GOTO 840 

850 kap=kap-ladwert:PEN 3:LOCATE 12,24:P 

RINT USING" #######";kap:IF sek(x,y)<4 TH 
EN GOSUB 1940:GOSUB 2080:GOTO 1490 

860 LOCATE 12,24:PRINT USING"#######";ka 


Cr 


Credi 


870 PEN 1:LOCATE 1,22:PRINT SPACE$(40):L 
OCATE 1,22:PRINT"Treibstoff nachfuellen? 
Vorrat:";treib 

880 t$="":WHILE t$="" OR INSTR("JN",t$)= 
0:t$=UPPER$(INKEY$):WEND:IF t$="N" THEN 

GOSUB 1940:GOSUB 2080:GOTO 1490 

890 LOCATE 1,22:PRINT SPACE$(40):tpreis= 
2+INT(18*RND) :PRINT"1 E =";tpreis;"Credi 
ts. Wieviele Einheiten?":PEN 3 

900 LOCATE 33,22:INPUT"",‚,neutreib:IF neu 
treib*tpreis>=kap OR treib+tneutreib>9999 
THEN LOCATE 33,22:PRINT" ":GOTO 9 
00 

910 treib=treib+tneutreib:kap=kap-neutrei 

b#ktpreis:IF besch=0 THEN GOSUB 1940 :GOSU 

B 2080:G0TO 1490 

920 LOCATE 1,22:PRINT SPACE$(40):repprei 
s= besch#t(3+INT(5&RND)): IF reppreis>kap O 

R besch=0 THEN GOSUB 1940:GOSUB 2080:GOT 

O 1490 

930 PEN 1:LOCATE 1,22:PRINT"Reparatur (P 
reis:";reppreis;"Cred.)? J/N" 

940 t$="":WHILE t$="" OR INSTR("JN",t$)= 
0:t$=UPPER$(INKEY$)):WEND:IF t$="N" THEN 
GOSUB 1940:GOSUB 2080:GOTO 1490 

950 besch=0:kap=kap-reppreis:GOSUB 1940: 


:IF ladwert THEN gew=ROUND(ladwer 


LISTING_ 


GOSUB 2080:GOTO 1490 
960 CLS:PEN 3: PRINT"Entwicklungsanalyse" 
:PRINT:PEN 1:PRINT"Bordcomputer an Comma 


nder:":PRINT"Der Sch...planet ist unbewo 

hnt!" 

970 PRINT"Den Treäibstoff haettest Du Dir 
sparen koennen. ":WHILE INKEY$="":WEND 
:GOSUB 1940:GOSUB 2080:G0OTO 1490 

980 ’Raumstation 


990 PEN 3:LOCATE 17,1:PRINT"Raumstation" 
:LOCATE 5,3:PRINT"Andocken? J/N:" 

1000 t$="":WHILE t$="" OR INSTR("JN",t$) 
=0:t$=UPPER$(INKEY$):WEND:IF t$="N" THEN 
LOCATE 17,1:PRINT SPACE$ (20) : LOCATE 5,3 
:PRINT SPACE$ (20) :GOTO 1490 

1010 CLS:PEN 3:PRINT"Raumstation":PRINT: 
PEN 1 * 

1020 PRINT"Vermoegen:";kap;"Credits":PRI 

NT"Treibstoff:";treib; "Einheiten": PRINT 
1030 tpreis=2+INT(24*RND) :reppreis=besch 
*(4+INT(8*RND)) 

1040 PRINT"Preise:":PRINT"1 E Treibstoff 
-";tpreis;"Credits":PRINT"Reparatur ="; 
reppreis; "Credits" :PRINT 

1050 PRINT"Treibstoff kaufen? J/N":t 
:WHILE t$="" OR INSTR("JN",t$)=0:t$=UPPE 

R$(INKEY$):WEND 

1060 IF t$="N" AND besch=0 THEN GOSUB 19 
40:GOSUB 2080:G0OTO 1490 ELSE IF t$="N" T 

HEN 1090 

1070 INPUT"Wieviel";neutreib:IF neutreib 
*tpreis>kap THEN 1070 

1080 kap=kap-neutreibi#tpreis:treib=treib 

+neutreib:PRINT"Du hast noch" ;kap;"Credi 

ts“ 

1090 IF reppreis>kap OR besch=0 THEN GOS 

UB 1940:GOSUB 2080:G0TO 1490 

1100 kap=kap- a, GOSUB 1940:GOSUB 2 

080:GOTO 1490 

‘1110 "Raumschiff 

1120 IF sek(x,y)=8 THEN 1170 

1130 IF sek(x,y)=9 THEN 1230 

1140 IF NOT((lad>13 OR ladungab(lad)>sta 

tus) AND RND>O.5) THEN 1490 

1150 CLS:PEN 3:PRINT"Raumpatrouille dock 

t an!":PRINT:PEN 1:PRINT"Deine (illegale 
) Ladung wurde be- schlagnahmt!":1 

adung$="":lad=0:ladwert=0 

1160 WHILE INKEY$="":WEND:GOSUB 1940:G0S 

UB 2080:GOTO 1490 

1170 IF RND<0.5 THEN 1490 

1180 CLS:PEN 3:PRINT"Vorsicht, 

!"ZPRINT:PEN 1 

1190 IF RND<0.5 THEN 1220 

1200 PRINT"Schwein gehabt, man hat Dir 

nur’ Deine Ladung geraubt!":ladung$="":l 

ad=0:ladwert=0 

1210 WHILE INKEY$="":WEND:GOSUB 1940:G0S 

UB 2080:GOTO 1490 

1220 PRINT"Durch einen heimtueckischen M 

ordan- schlag, als Du Deine Ladung v 

erteidigen wolltest, wurde Deiner Karrie 

re ein vor- zeitiges Ende bereitet. ":GO 

TO 1740 

1230 IF RND<O0.9 THEN 1490 

1240 CLS:PEN 3:PRINT"Oh, 


30 


"nn 


Raumpirat 


ein Kollege!":P 


LISTING | Schneider/ 
aktiv 


RINT:PEN 1:PRINT"Er hatte Maschinenschad 
en, den Du aller-dings reparieren konnte 
st." 
1250 IF RND<0.7 AND ladung$<>"" THEN 128 
[0] y 
1260 neukap=200+INT(800XRND) :PRINT"Als D 
ank gibt er Dir seine letzten Mone-ten, 
das sind":PRINT neukap; "Credits.":kap=ka 
p+tneukap 
1270 WHILE INKEY$="" 
UB 2080:GO0TO 1490 
1280 PRINT"Leider hatte der Kollege auss 
erdem auch keine Ladung; und da er keine 
r von der ehrlichen Sorte ist, darfst D 
u ihm Deineabgeben und wirst zum Dank da 
fuer er- schossen." 
1290 GOTO 1740 
1300 ’Meteoriten 
1310 CLS:PEN 3:PRINT"Meteoriten-Alarm 
!":PRINT:PEN 1:beschneu=sbesch+INT(20*RND 
):IF beschneu<=90 THEN 1330 
1320 PRINT"Na also, jetzt ist Deine Kist 
e endguel-. tig schrottreif. Am besten se 
tzt Du Dichmit dem Rettungsboot ab und b 
eantragst Deine Streichung aus dem Hand 
elsregi- ster.":GOTO 1740 
1330 IF beschneu=sbesch THEN PRINT" 
gehabt: Die Meteoriten haben DeinRaumsc 
hiff verfehlt.":GOTO 1350 
1340 besch=beschneu:PRINT"Leider haben d 
ie Meteoriten etwas Scha- den angerichte 
":IF beschneu>80 THEN PRINT"Der Bordco 
mputer empfiehlt dringend eineReparatur' 


” 


:WEND:GOSUB 1940:G0S 


Glueck 


1350 WHILE INKEY$="" 

UB 2080:G0TO 1490 
1360 ’Black Hole 
1370 CLS:PEN 3:PRINT"R.I.P.":PRINT:PEN 1 
1380 PRINT"Nur wer seine Lizenz im Lotto 
gewonnen hat, steuert geradewegs in ei 
n SchwarzesLoch. Geschieht Dir recht..." 
:GOTO 1740 

1390 ’Sperrgebiet 

1400 IF RND<O.3 THEN 1490 

1410 CLS:PEN 3:PRINT"Abgeschossen!" 
T:PEN 1 

1420 PRINT"Wer in militaerischem Sperrge 
biet rum- kreuzt, muss mit sowas eben r 
echnen. Glueck fuer Dich, dass man Di 
ch aus dem Wrack geborgen hat." 

1430 PRINT"Die einzige Schwierigkeit lie 


:WEND:GOSUB 1940:G0S 


:PRIN 


gt jetzt darin, den Geheimdienst davon 
zu ueber- zeugen, dass Du kein Spion bi 

st...":GOTO 1740 

1440 ’Befoerderung 


1450 FOR i=1 TO 5:FOR j=200 TO 20 STEP - 
20:SOUND 2,5j,4,15:SOUND 1,5/2,4,15:SOUND 
4,j-2,4,15:NEXT j,i 
1460 CLS:PEN 3:PRINT"GRATULATION!" 
:PEN 1 

1470 PRINT'"Du hast Dein Ziel erreicht!": 
IF status=5 THEN PRINT"Am liebsten wuerd 
e Dein Chef Dich noch- mal befoerdern, a 
ber das geht leider nicht...":GOTO 17 
40 

1480 PRINT"Du wirst daher vom ";stat$(st 


:PRINT 
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atus):PRINT"zum ";stat$(status+1);" befo 


erdert.":status=status+1:GOTO 1740 
1490 ’Steuerung 
1500 st$="":WHILE st$="" OR INSTR("WOF", 


st$)=0:st$=UPPER$(INKEY$):WEND:IF st$="O0 
" THEN 1620 ELSE IF: st$="W" THEN 420 
1510 PEN 2:LOCATE 37,10:PRINT"?";:r$= 
WHILE r$="" OR INSTR("12345678'”,r$)=0:r$ 
=INKEY$:WEND 

1520 ON VAL(r$) GOTO 1530,1540,1550,1560 
‚1570,1580,1590,1600 

1530 xt=x:yt=y-1:GOTO 1610 

1540 xt=x+l:yt=y-1:GOTO 1610 

1550 xt=x+1:yt=y:GOTO 1610 

1560 xt=x+1:yt=y+1:GOTO 1610 

1570 xt=x:yt=y+1:GOTO 1610 

1580 xt=x-1:yt=y+1:GOTO 1610 

1590 xt=x-1:yt=y:GOTO 1610 

1600 xt=x-1:yt=y-1 

1610 GOSUB 2270:IF NOT moeglich THEN 151 

O ELSE LOCATE 37,10:PRINT r$; :x=xt:y=yt: 
treib=treib-50:IF treib<=0 THEN 1660 ELS 

E 420 

1620 CLS:PEN 3:PRINT"Fernortung" : PRINT 
1630 FOR i=1 TO 20:FOR j=1 TO 40:IF i=y 

AND j3=x THEN PEN 1:PRINT"*";:GOTO 1650 
1640 IF i<y-radius OR i>y+tradius OR j<x- 

radius OR j>x+tradius THEN PEN 1:PRINT"?" 
; ELSE tx=Jj:ty=1i:GOSUB 2190 
1650 NEXT j,i:WHILE INKEY$="" 
1940:GOSUB 2080:GOTO 1490 
1660 ’Kein Sprit mehr 

1670 CLS:PEN 3:PRINT"KEIN TREIBSTOFF MEH 

R!"3PRINT:PEN 1:PRINT"Bordcomputer melde 
":PRINT"Du Penner hast entweder die In 

strumente falsch abgelesen oder Dich ver 

kalku- liert." 

1680 PRINT"Viel Vergnuegen noch in Deine 

r Sardinen-buechse! Aber vielleicht find 

et Dich ja mal ’n Kollege..." 

1690 GOTO 1740 

1700 ’Kein Geld mehr 

1710 CLS:PEN 3:PRINT"PLEITE!":PRINT:PEN 
1:PRINT"Bordcomputer an Pleitegeier:":PR 
INT"So wie Du gewirtschaftet hast, konnt 

e das ja nicht gutgehen..." 

1720 PRINT"Vielleicht schaffst Du’s ja i 
rgendwann doch noch.":IF status<3 THEN 

PRINT"Aber vom "‚stat$ (status): PRINT"bis 
zum Handelskapitaen ist noch ein wei 
ter Weg..." 

1730 GOTO 1740 

1740 ’Raumgebiet und Status zurueckspeic 

hern 

1750 sek$=UPPER$(sek$) :üERA,äasek$:OPENOU 

T sek$:FOR i=1 TO 20:FOR j=1 TO 40:PRINT 
#9,sek(j,i):NEXT j,i:CLOSEOUT 

1760 alt$="ranks.spt":neu$="ranks.new":O 
PENIN alt$:OPENOUT neu$:WHILE NOT EOF:IN 
PUT#9,vgl$,st:IF vgl$<>name$ THEN PRINT# 
9,vgl$:PRINT#9,st ELSE PRINT#9,name$:PRI 
NT#9,status 

1770 WEND:CLOSEIN:CLOSEOUT:UERA,äaalt$:uR 
EN,aalt$,aneu$ 

1780 PEN 2:LOCATE 1,25:PRINT"Noch ein, Sp 
iel? J/N"; 


. . 


:WEND: GOSUB 


Schneidey/ 
akt 


1790 t$="":WHILE t$="" OR INSTR("JN",t$) 

=0:t$=UPPER$(INKEY$):WEND:IF t$="J" THEN 

CLEAR: RUN 

1800 PEN 1:MODE 2:END 

1810 °’ 

1820 °’- 

1830 ’ 

1840 ’Koordinaten anpassen 

1850 IF xtest>40 THEN xtest=1 ELSE IF xt 

est<1 THEN xtest=40 

1860 IF ytest>20 THEN ytest=1 ELSE IF yt 

est<1 THEN ytest=20 

1870 RETURN 

1880 ’Cockpit anzeigen 

1890 CLS:PEN 1 j 

1900 LOCATE 5,1:PRINT"Raumortung:" :LOCAT 

E 3,6:PRINT"Moegliche Flugrichtungen:" 

1910 LOCATE 3,14:PRINT"Status:":LOCATE 3 

‚16: PRINT"Treibstoff: Einheiten":L 

OCATE 3,18:PRINT"Beschaedigung: %" 

1920 LOCATE 3,20: PRINT"Vermoegen: 

Credits":LOCATE 3,22:PRINT"Ziel: 

Credits":LOCATE 3,24:PRINT"Wert der L 

adung: Credits + %" 


1930 RETURN 

1940 ’Zustand des Schiffes anzeigen und 

Nahortung 

1950 GOSUB 1880:PEN 3:LOCATE 11,14:PRINT 
stat$(status) :LOCATE 15,16:PRINT USING" 
#####" ;treib:LOCATE 18,18:PRINT USING" ## 
"sbesch 

1960 LOCATE 14,20:PRINT USING" #######";k 

ap:LOCATE 9,22:PRINT USING" #######" ;zk(s 
tatus) :LOCATE 20,24:PRINT USING" #######" 
‚ladwert 

1970 IF lad THEN LOCATE 37,24:PRINT USIN 

G"###";gewinn(lad):LOCATE 3,25:PRINT lad 
ung$; 


Unterprogramme 


1980 LOCATE 1,1:tx=x-1l:ty=y-1:GOSUB 2190 
1990 LOCATE 2,1:tx=x:GOSUB 2190 

2000 LOCATE 3,1:tx=x+1:GOSUB 2190 

2010 LOCATE 1,2:tx=x-1:ty=y:GOSUB 2190 
2020 LOCATE 2,2:tx=x:GOSUB 2190 

2030 LOCATE 3,2:tx=x+1:GOSUB 2190 

2040 LOCATE 1,3:tx=x-1:ty=y+1:GOSUB 2190 
2050 LOCATE 2,3:tx=x:GOSUB 2190 


2060 LOCATE 3,3:tx=x+1:GOSUB 2190 

2070 PEN 3:RETURN 

2080 ’Moegliche Flugrichtungen 

2090 PEN 1:LOCATE 30,7:PRINT"cüU/":LOCATE 
30,8: PRINT"-*-":LOCATE 30,9:PRINT"/üg" 
2100 LOCATE 31,6:xt=x:yt=y-1:GOSUB 2270: 


PRINT"1" 
2110 LOCATE 33,6:xt=x+1:GOSUB 2270:PRINT 
na“ 


2120 LOCATE 33,8:yt=y:GOSUB 2270:PRINT"3 
2130 LOCATE 
T"4'" 

2140 LOCATE 
5" 

2150 LOCATE 
T"6'" 

2160 LOCATE 


33,10:yt=y+1:GOSUB 2270:PRIN 
31,10:xt=x:GOSUB 2270:PRINT" 
29,10:xt=x-1:GOSUB 2270:PRIN 
29,8:yt=y:GOSUB 2270:PRINT"7 


2170 LOCATE 29,6:yt=y-1:GOSUB 2270:PRINT 


LISTING 


"gr 
2180 PEN 3:RETURN 

2190 ’Raumsektor untersuchen fuer Ortung 
2200 IF tx<1 OR tx>40 OR ty<1 OR ty>20 T 
HEN PEN 1:PRINT"-";:RETURN 

2210 IF sek(tx,ty)=0O THEN PEN 1:PRINT"." 
; :RETURN 

2220 IF sek(tx,ty)>O AND sek(tx,ty)<6 TH 
EN PEN 2:PRINT CHR$ (250); :RETURN 

2230 IF sek(tx,ty)>5 AND sek(tx,ty)<10 T 
HEN PEN 3:PRINT CHR$(251);:RETURN 

2240 IF sek(tx,ty)=10 THEN PEN 3:PRINT C 
HR$ (252); :RETURN 

2250 IF sek(tx,ty)=11 THEN PEN 1:PRINT C 
HR$(253);:RETURN ELSE PEN 3:PRINT CHR$(2 
54); ; 

2260 RETURN 

2270 ’Flugrichtungen untersuchen 

2280 IF xt<1 OR xt>40 OR yt<1 OR yt>20 T 

HEN moeglich=0:PEN 3:RETURN 

2290 IF sek(xt,yt)=10 OR sek(xt,yt)=11 T 

HEN moeglich=0:PEN 3 ELSE moeglich=-1:IF 
sek(xt,yt)>-1 AND sek(xt,yt)<6 THEN PEN 
2 ELSE PEN 1 

2300 RETURN 


2310 ’ 

2320 ’ Daten 
2330 ’ 

2340 ’Status 


2350 DATA Greenhorn, 10000,50000, Amateur, 
50000,200000,Halbprofi,200000,500000,Pro 
fi,500000,1500000,Handelskapitaen, 150000 
0,4000000 

2360 ’Ladung 


"2370 DATA Getreide,1,1,5,Saatgut,1,1,6,F 


rischgemuese,1,1,8,Fleisch,1,1,10,Stahl, 
1,2,15,Edelmetalle,2,2,20 

2380 DATA Industrieanlagen, 2,2,25,Comput 
er,3,3,25,Kernbrennstaebe,3,3,40,Reaktor 
bauteile,3,3,50,Raumschiffsersatzteile,4 
‚4,70,Triebwerke,4,4,80 

2390 DATA Navigationscomputer,4,4,85,Waf 
fen,1,2,200,Militaerausruestung,1,2,400, 
Schnaps ,1,2,500 


SPACE TRADER 


Fortsetzung von Seite 27 


DER GAME CREATOR 


Mit diesem Programm 
können Sie neue Raum- 
sektoren anlegen. Denken 
Sie daran, daß der Sekto- 
renname höchstens acht 
Zeichen lang sein darf! 


mindestens 1000 Credits 
übrigbleiben für den 
Kauf neuer Ware! 
Vergessen Sie nicht: 
Raumschiffe und Meteo- 
riten haben ein Eigenle- 


ben; Planeten und Raum- 
stationen finden Sie aber 
wieder, sofern Ihr Orien- 
tierungssinn ausreichend 
entwickelt ist. Papier 

und Bleistift oder das hin- 
terlistige Auslesen der 
Dateien sowie Manipula- 
tionen an der Fernortung 
sollten unterbleiben! 


32 


Die Möglichkeit, einen ein- 
gelesenen Sektor unter an- 
derem Namen zurückzu- 
speichern erlaubt es Ih- 
nen, einen Sektor zu ei- 
nem völliganderen um- 
zugestalten, ohne die gan- 
ze Belegung neu eingeben 
zu müssen. 

Die Symbole, mit denen 


LISTING 


100 Kun Du Du Be De De BE Be Ze DZ u DE DE BE DE DE Ze DE DE DE BE DE DE De BE Ze De De De Ze De Bu u 
711 IT EP IIT TTTTIIT IT IIIIIIH 
110 SPACE TRADER GAME .CREATOR 
V 1.0 13/06/86 E 
120 ’° Dateiname: INST2.BAS 
’ 
130 ’° by Alwin Ertl 
’ 
140 TEILEN II IT INT IT 
7 II II IT IITITII IT I III IH 
150 ’ 
160 ’Vorbereiten 


170 INK 0,0:PAPER 0:BORDER 0:INK 1,26:IN 

K 2,21:INK 3,6:MODE 1 

180 DIM sek(40,20):FOR i=1 TO 20:FOR j=1 
TO 40:sek(j,i)=0:NEXT j,i 

190 SYMBOL 239,0,0,0,&18,&18:SYMBOL 240, 
0,8,&18,8,8,8,8:SYMBOL 241,0,&7E,6,&7E,& 
7TE,&60,&7E 

200 SYMBOL 242,0,&7E,6,&7E,&7E,6,&7E:SYM 
BOL 243,0,&40,&48,&48,&7E,8,8:SYMBOL 244 
‚&18,&24,&42,&42,&24,&18:SYMBOL 245,0,0, 
0,&18,&24,&7E 

210 SYMBOL 246,0,&42,&7E,&3C,&3C,&3C,&18 
:SYMBOL 247,0,&7E,&46,&46,&7E,&40,&40:SY 
MBOL 248,0,&42,&42,&7E,&7E,&42,&42 

220 SYMBOL 249,0,&40,4,&10,0,&24:SYMBOL 
250,0,0,0,&18,&24;,&24,&18:SYMBOL 251,&FF 


‚&C3,&A5,&99,&99,&A5,&C3,&FF 
230 PEN 3: PRINT"SPACE TRADER - Game Crea 


tor":PRINT 


240 PEN 1:PRINT"Name des Sektors: "; 


2:INPUT "",sek$ 


: PEN 


250 PEN 1:PRINT"Von Diskette laden? J/N 


:PEN 2 


260 t$="":WHILE t$="" OR INSTR("JN",t$)= 
0:t$=UPPER$(INKEY$):WEND:PRINT t$ 


Sie hier arbeiten, sind 
folgende: 

weißer Punkt: 

leerer Raumquadrant 
Ziffern 1 bis 4, grün: 
Planet auf der jeweiligen 
Entwicklungsstufe 
grüner Kringel: 
unbewohnter Planet 
“UFO“, rot: 
Raumstation 
stilisiertes Raumschiff 
(oder ““Stierkopf‘‘), rot: 
Raumpatrouiille - 

rotes P: 

Pirat 

rotes H: 
Händler-Kollege 

rote Pünktchen: 
Meteoriten ° 

weißer Kringel: 

Black Hole 


rotes Quadrat mit Kreuz: 


Sperrgebiet. 


Mit Links- und Rechts- 

feil bewegen Sie den 
Beiger, der auf jeweils 
ein Symbol deutet. 


COPY wählt dieses Sym- 


bol aus. Anschließend 
können Sie ein “X“ in 

der Karte des Raumsek- 
tors bewegen (Pfeiltasten). 
Mit COPY setzen Sie das 
entsprechende “Element“ 
an die aktuelle Position. 
Das können Sie beliebig 
oft wiederholen. Die 
Leertaste bringt Sie in 

die erste Auswahl zurück. 
Das Symbol L, das eben- 
falls dort zu finden ist, 
löscht den ganzen Sektor. 
F bedeutet “Fertig‘‘ und 
speichert den Sektor un- 
ter dem angegebenen 
Namen auf Diskette. 


VORBEREITET... 


...ist das File 
RANKS.SPT, das bereits 
folgende Namen und 
Ränge enthält: 

-— CPC, Halbprofi 


akt? 


270 IF t$="N" THEN 300 

280 sek$=sek$+".spt":sek$=UPPER$ (sek$):O 

PENIN sek$:FOR i=1 TO 20:FOR j=1 TO 40:1 

NPUT #9,sek(j,i):NEXT j,i:CLOSEIN 

290 PEN 1:PRINT"Zurueckspeichern als Sek 
tor ";:PEN 2:INPUT "",sek$ 
sek$=sek$+".spt" 

’Display aufbauen 

CLS:FOR i=1 TO 20:FOR j=1 TO 40 

IF sek(j,i)=0 OR sek(j,i)=11 THEN PE 
ELSE IF sek(j,i)>O AND sek(j,i)<6 TH 
EN PEN 2 ELSE PEN 3 

340 PRINT CHR$(239+sek(j,i));:NEXT j,i 
350 LOCATE 1,23:PEN 1:PRINT CHR$(239);:P 

EN 2:PRINT CHR$(240);CHR$(241);CHR$(242) 
;CHR$(243);CHR$(244);:PEN 3:PRINT CHR$(2 
45);CHR$(246) ;CHR$(247) ;CHR$ (248) ;CHR$ (2 
49);:PEN 1:PRINT CHR$(250);:PEN 3:PRINT 
CHR$(251);:PEN 1:PRINT"LF"; 

360 wahl=1:x=1:y=1 

370 ’Zeichen waehlen 

380 PEN 1:LOCATE wahl,24:PRINT"“"; 

390 t$=INKEY$:IF t$="" THEN 390 

400 LOCATE wahl,24:PRINT" "; 

410 IF t$=CHR$(224) THEN 450 

420 IF t$=CHR$(243) THEN wahl=wahl+1:IF 
wahl>15 THEN wahl=!1: 

430 IF t$=CHR$(242) THEN wahl=wahl-1:IF 
wahl<1 THEN wahl=15 

440 GOTO 380 

450 LOCATE wahl,24:PRINT"X"; 

460 IF wahl=15 THEN 610 

470 IF wahl=14 THEN FOR i=1 TO 20:FOR j= 
1 TO 40:sek(5j,i)=0:NEXT 5J,i:GOTO 310 

480 LOCATE x,y:PRINT"X"; 

490 t$=INKEY$:IF t$="" THEN 490 

500 LOCATE x,y:IF sek(x,y)=0 OR sek(x,y) 
=11 THEN PEN 1 ELSE IF sek(x,y)>O AND se 
k(x,y)<6 THEN PEN 2 ELSE PEN 3 

510 PRINT CHR$(239+sek(x,y)); 

520 IF t$=CHR$(224) THEN 590 

530 IF t$=" " THEN 380 
540 IF t$=CHR$(243) THEN 
HEN x=1 

550 IF t$=CHR$(242) 

EN x=40 

5660 IF t$=CHR$(241) 

HEN y=1 

570 IF t$=CHR$(240) 
EN y=20 

580 PEN 1:GOTO 450 
590 LOCATE x,y:IF wahl-1=0 OR wahl-1=11 
THEN PEN 1 ELSE IF wahl-1>0 AND wahl-1<6 
THEN PEN 2 ELSE PEN 3 

600 PRINT CHR$(238+wahl) ;CHR$(7); 
y)zwahl-1:GOTO 480 

610 ’Zurueckspeichern 

620 sek$=UPPER$(sek$) :OPENOUT sek$:FOR i 
=1 TO 20:FOR j=1 TO 40:PRINT#9,sek(j,i): 

NEXT j,i:CLOSEOUT 

630 CLS:PEN 1:PRINT"Noch einen Sektor be 
arbeiten? J/N" 

640 t$="":WHILE t$="" OR INSTR("JN",t$)= 
0:t$=UPPER$(INKEY$) ’WEND:IF t$="J" THEN 

CLEAR: RUN 

650 MODE 2:END 


x=x+1l:IF x>40 T 


THEN x=x-1:IF x<1 TH 


THEN y=y+1:IF .y>20 T 


THEN y=y-}:IF y<1 TH 


:sek(x, 
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Schneider? 
| akt 


— aktiv-Team, Green- 
horn 
— Mad Max, Handels- 
kapitän 
Versuchen Sie’s doch mit 
einem dieser Namen, be- 
vor Sie sich selbst als 
Greenhorn registrieren 
lassen. Auch Ihre Freun- 
de können Sie mit diesem 
Spiel unauffällig elektro- 
nisch erfassen. Mal sehen, 
wie viele ohne Rückfra- 
gen ihren Namen ein- 
tippen. 
Wenn nicht der Spieler 
selbst sondern ein 
Freund die Spielfelder 
“‘präpariert‘“, wird’s oft 
besonders interessant. Vor 
allem dann, wenn jeder 
versucht, den anderen 
durch gut versteckte Fal- 
len auszutricksen. Dabei 
ist es auch von Nutzen, 
wenn man die Eigenarten 
seines Gegenübers kennt. 
Wenn z.B. jemand gerne 


LISTING 


den (Auto-)Tank bis auf 
den letzten Tropfen leer- 
fährt, wird er das auch 
mit dem Raumschiffstank 
tun. Man streue in diesem 
Fall Planeten der Stufe 

4 und Raumstationen 
möglichst dünn. Notori- 
sche Schmuggler kann 
man mit dem massierten 
Auftreten von Patrouil- 
lenkreuzer aufs Kreuz le- 
gen. Und selbst der Vor- 
sichtigste wird seine Vor- 
sicht aufgeben, wenn die 
einzige Tankstelle‘ mit- 
ten in einem Sperrgebiet 
liegt... .. 

Nach diesem kleinen Vor- 
geschmack versorgen Sie 
sich am besten (sofern 
Sie die Programme selbst 
abtippen wollen) mit aus- 
reichend Heftpflaster für 
Ihre wunden Finger — 
und dann: Viel Spaß! 


Alwin Ertl 


MUSIK 


100 ’ SINGING IN THE R A 
IN 

1:10. 

120 ’ Musik & Grafik auf dem CPC 

130.’ von Alwin Ertl 

140: * 

150 POKE &BDEE,201 ’Unterbrechungen aus 

160 ENV 1,5,3,1,1,0,40,15,-1,6:ENT -1,1, 


1,1,1,-1,3:MODE 1:PAPER 0:INK 0,0:BORDER 
0:CLS:INK 1,26:PEN 1:INPUT "Bitte eine 
bel. Zahl eingeben: ",‚,zufall:RANDOMIZE z 
ufall:CLSs 
170 FOR i=1 TO 3:INK i,INT(26%*RND(2)+1): 
ON SQ(1) GOSUB 210:NEXT i:anzahl=INT(11%* 
RND(2)+5) 
180 FOR i=1 TO anzahl:FOR j=1 TO 3:0N SQ 
(1) GOSUB 210:x(J)=INT(640XRND(2)):y(j)= 
INT(400XRND(2)):NEXT j:tinte=INT(3#*RND‘(2 
)+1):xp=SGN(RND-RND) *INT(4*RND(2)+2):yp= 
SGN(RND-RND) XINT(4*RND(2)+2) :wdA=INT(16%*R 
ND(2)+5) 
190 FOR j=1 TO wd:ON SQ(1) GOSUB 210:MOV 
E x(1),y(1):DRAW x(2),y(2),tinte:DRAW x( 
3),y(3):DRAW x(1),y(1):FOR k=1 TO 3:x(k) 
=x(k)+xp:y(k)=y(k)+yp:NEXT k:NEXT j:NEXT 
i 
200 FOR i=1 TO 400:0N S@(1) GOSUB 210:NE 
XT i:CLG:GOTO 170 
210 READ p,d:IF p=-1 THEN RESTORE:GOTO 2 
10 
220 SOUND 1,p,d%3.2,0,1,1:SOUND 2,p*2,dk 
3.2,0,1,1:SOUND 4,p/2,d%*3.2,10:RETURN 
230 DATA 95,5,119,5,106,5,142,5,119,5,14 
2,10,119,5,95,5,119,5,106,5,142,5,119,20 
240 DATA 95,5,119,5,106,5,142,5,119,5,14 
2,10,119,5,95,5,119,5,106,5,142,5,119,20 
250 DATA 95,5,119,5,106,5,142,5,119,5,14 
2,10,119,5,95,5,119,5,106,5,142,5,119,20 
260 DATA 95,5,119,5,106,5,142,5,119,5,14 
2,10,119,5,80,20 , 
270 DATA 159,10,80,25,95,5,106,5,119,5,1 
42,30,159,10,119,25,119,5,106,5,95,5,80, 
20 
280 DATA 159,5,142,5,119,20,106,10,95,10 
‚80,20,95,10,80,10,80,20,95,10,106,10,14 
2,30 
290 DATA 159,10,80,20,95,10,106,10,142,3 
0,159,10,80,20,95,10,106,10,142,30 
300 DATA 159,10,80,20,159,10,142,10,127, 
20,95,10,159,10,119,20,142,10,119,10,142 
‚30 N 
310 DATA 159,5,142,5,119,20,106,10,95,10 
‚80,30,159,5,142,5,119,20,106,10,95,10,8 
0,40,0,5 
320 DATA 119,10,119,5,106,5,95,10,80,20, 
95,10,80,10,80,20,95,10,106,10,142,30 
330 DATA 159,10,80,20,95,10,106,10,142,3 
0,159,5,159,5,80,20,95,10,106,10,142,30 
340 DATA 159,10,80,10,80,30,127,10,127,1 


"0,95,10,159,10,119,45,0,50 


350 DATA -1,-1 


TEST 
akt / 


CRAFTON & XUNK: 
SCIENCE FICTION- 
COMIC-HUMOR UND 
ZIPFELMÜUTZE 


Auf KURS ZUR 
ERDE, Du 
Kueines Biest ! 


Do KANNST in OiE Luft 
SPWNGEN, STEHEN, HERUN- 


GnuteNn... OAS MACHT Min 


Nitts Aus! A 


<= m) 


S 


UND 0A DV Auf URLAUB | 
BIST, KANNST Du MACHEN 
wAS Du 


/ um SCHIELE NICHT wa 
ae Murzeles Gier 
DARUNTER NICHTS FÜR DICH 

ZU ESSEN, 4 
N e4 


zu führt, daß Crafton stol- 
pert und das Zimmer sit- 
zend betrachtet. Anderer- 
seits liefert Xunk mit sei- 
ner Schnüffelei, auch wert- 
volle Hinweise, die nicht 
vernachläßigt werden 
dürfen. 

Für das merkwürdige Ge- 
spann öffnen sich die 
Türen erst nach Berüh- 
ren der Fußschalter, die 
Frage ist nur, welcher ge- 
rade aktiv ist. Bedauer- 


wiLLST. 


mar DER we 


yurorot!>, Mt 


Das Spiel ist programm- 
technisch stark an „Knight- 
Lore‘ angelehnt. Auch 
bei Crafton & Xunk be- 
wegt sich die Spielfigur in 
dreidimensionalen Räu- 
men, muß Gegenstände 
einsammeln und sinnvoll 
einsetzen, und sieht sich 
von allerlei Widrigkeiten 
umgeben. Es gäbe also 
nichts Neues, stünde bei 
diesem Adventure nicht 
eine wesentlich bessere 
Grafik zur Verfügung 
und würde es nicht auf 
einer witzigeren Idee 
bassieren. _ 

Der Witz fängt schon bei 
der Bedienungsanleitung 
an. Die Vorgeschichte 
zum Abenteuer wird in 
einem schwarz/weißem, 
aber deutschsprachigem 
Comic erzählt. Darin er- 
fährt man nicht nur, wel- 
ches die Aufgabe des Hel- 


Unaussprechliche Namen und 
ein Comic am Spielanfang: 
Crafton & Xunk 


den ist, sondern auch, 
warum er eine treudeut- 
sche Zipfelmütze trägt. 
Crafton ist ein Android, 
ein Roboter in Menschen- 
gestalt. Seine aparte Kopf- 
bedeckunghat... 

Naja, lest selbst. Eine 
wichtige Rolle im Comic 
als auch im Spiel hat sein 
Kamerad Xunk, ein 
Podocephale. Podocepha- 
le sind neu in der Ge- 
schichte des Science-fic- 
tion. Sie gelten als die 
Weiterentwicklung des 
Hühnerauges und schauen 
dementsprechend wie ein 
Fuß mit Augenpaar aus. 
Crafton & Xunk, die 
wackeren, Gestalten, müs- 
sen also in den Räumen 
der Galaktischen Kon- 
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licherweise kostet ein 
Tritt auf den falschen 
Schalter mächtig viel 
Energie. Außerdem sind 
ständig Roboter hinter 
den beiden her, die das 
Aussehen einer erfolgrei- 
chen Züchtung zwischen 
Dackel und elektrischem 
Dosenöffner haben. Die 
menschliche Besatzung 
des Kontrollzentrums, 
allesamt Punk’s, ist ihnen 
ebenfalls nicht freundlich 
gesonnen, und die Wissen- 

 »schaftler geben sich ver- 
schwiegen. 


ERE 
INFORMATIQUE 


£ : ABZWEIGEN ÜBER DIE (ca. 35,— DM Cass. 
Ba REN A ( j ss.) 
NEHEN : LEEATASTE Auf Anhieb ist das Spiel 
ern = jedenfalls nicht zu lösen, 


und der Reiz bleibt lan- 
ge erhalten. Vervollkomm- 
net wird das Programm 
durch die Grafik, die gut 
ins Spielgeschehen ein- 
bezogen ist. Alle Möbel 
lassen sich verschieben 
und erklettern, das Be- 
steigen eines Drehstuhles 
führt zu einer balletreifen 
Einlage samt Sturz, und 
was passiert, wenn der 
arme Crafton von sadi- 
stischen Joysticklenkern 
in den Ventilator geführt 
wird, mag sich jeder selbst 
ausmalen. 

Eine chaotische Begleit- 
melodie strapaziert den 
Lautsprecher nur wäh- 
rend des Vorspannes. Im 
Spiel überzeugt das Pro- 
gramm mit netten Sound- 
effekten, bezogen auf die 
jeweilige Handlung. Und 
da auch der Preis stimmt, 


Den PODOCEAHMEN 2 URÜCHRUFEN AR 
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trolle, den Zentralcom- 
uter namens ZARXAS 
inden und eindringen. 
Dazu braucht es einen 
aus acht Ziffern bestehen- 
den Code, den einzelne 
Wissenschaftler zahlen- 
weise herausrücken, so- 
fern man sie mit den rich- 
tigen Gegenständen be- 
sticht. 
Als gestandener Android 
verliert Crafton natürlich 
Energie, die er in holo- 
graphischen Kabinen auf- 
tanken kann. Sein Koffer 
hat leider nur Platz für 
einen Gegenstand, und da 
gilt es zu taktieren und 
umzuräumen, damit man 
im richtigen Zimmer, werden sich Crafton & 
den richtigen Gegenstand Xunk schnell in die vor- 
hat. Xunk, der Podocepha- deren Reihen diverser 
le (frei übersetzt: Platt- Spielhitparaden katapul-: 
fuß), hüpft etwas unbe- tieren. 
kümmert durch die Ge- Gegönnt sei’s ihnen. 
gend, was nicht selten da- Gerd Seidel 
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TEST 


TAIFUN: DER 
WEISSE 
WIRBELWIND 
FÜR BASIC- 
PROGRANME 


Wem laufen Basic-Programme nicht zu langsam? 
Doch wohl Allen. Eine Möglichkeit, den Programm- 
ablauf zu beschleunigen, ist das Compilieren, also das 


„Übersetzen“ 


in Maschinensprache. Einen solchen 


Compiler stellt unser Test vor. 


Der fortgeschrittene Basic- 
BrSErananIerer sucht frü- 
er oder später nach Alter- 
nativen, seine Software 
durch höhere Ausführungs- 
geschwindigkeit und ge- 
ringeren Speicherplatzbe- 
darf noch effizienter zu 
machen. Wem Maschinen- 
sprache zu umständlich 
und eine schnellere Hoch- 
sprache wie Pascal, Forth 
oder Cobol zu kompliziert 
ist (wer geht schon gerne 
freiwillig wieder auf die 
Schulbank), der wird frü- 
her oder später bei einem 
Basic Compiler wie dem 
hier vorgestellten “Taifun“ 
landen. 
Basiccompiler sind in 
Maschinensprache ge- 
schriebene Programme, 
die Basicprogramme in 
kurzer Zeit in einen erheb- 
lich schnelleren Maschi- 
nencode übersetzen, der 
nach Fertigstellung und 
Abspeicherung auf Dis- 
kette oder. Kassette ohne 
den Compiler lauffähig 
ist. 
Eines kann man mit ei- 
nem Compiler allerdings 
nicht erreichen: In Basic 
geschriebene Programme 
durch die Compilation 
zu verkürzen. Alle compi- 
lierten Programme werden 
länger, belegen somit mehr 
Speicherplatz. Ein gutes 
Compiler-Konzept legt 
daher den Schwerpunkt 


compilieren. Schon wäh- 
rend des Programmschrei- 
bens kann man auf 
Wunsch, durch Aufruf 
des Compilers, ständig 
überprüfen, ob z.B. Syn- 
taxfehler vorliegen. Ein- 
facher geht es nicht. 
Der erreichbare Geschwin- 
digkeitsvorteil bei der 
Programmausführung liegt 
etwas zwischen den Fak- 
toren 20 — 200mal schnel- 
ler. Wer es nicht glaubt, 
der kann sich davon an 
einer einfachen Warte- 
schleife, die nach dem 
Compilieren keine mehr 
ist, überzeugen. Das Basic 
braucht für folgende Pro- 
grammzeile etwa 20 s 
(for i=1 to 20000: next), 
es Compiler nicht mal 

S. 
Taifun verarbeitet nahe- 
zu den ganzen Befehlssatz 


Taifun ist auch einer — 
auf eine stark erhöhte ein Taifun 


Programmabarbeitungsge- 
schwindigkeit. 

Mit dem Basiccompiler 
Taifun steht dem Pro- 
grammierer ein leistungs- 
fähiges Werkzeug dieser 
Gattung zur Verfügung. 
Eine Besonderheit an 
Taifun ist seine interakti- 
ve Arbeitsweise. Der Com- 
piler (ca. 12k Speicher- 
platz), das Basicprogramm 
und das übersetzte (com- 
pilierte) Programm befin- 
den sich gleichzeitig im 
Speicher. Das ist ein un- 
schätzbarer Arbeitsvor- 
teil. Nach dem Schreiben 
und Übersetzen des 
Basicprogramms lassen 
sich die aufgetretenen Feh- 
ler berichtigen und erneut 
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des Lokomotive Basic. 
Vorstellung, bereits be- 
stehende Basicprogram- 
me (der Compiler läßt 
sich auch nachträglich 
zuladen!) seien nun pro- 
blemlos übersetzbar, müs- 
sen allerdings berichtigt 
werden. Die eine oder an- 
dere Feinheit bei der Er- 
stellung des Quellpro- 
gramms gilt es schon zu 
beachten. Leider ist das 
spartanisch ausgestattete 
Handbuch in dieser Bezie- 
hung nicht sehr informa- 
tiv. Die meisten Komman- 
dos und Funktionen ver- 
arbeiten nur einfache’ 
Strings. Reicht das nicht 
aus, so müssen Hilfsvaria- 


ble verwendet werden. 

So darf etwa eine if- 
Schleife kein inkey$ ver- 
wenden. Schachtelzeilen, 
mit mehr als einem if... 
then ...else, werden auch 
nicht akzeptiert, Varia- 

ble werden nur nach den 
ersten beiden Buchstaben 
unterschieden (anz$ = 
anteil$'!) usw. Programme, 
die genaue Rechnungen 
durchführen müssen, soll- 
te man ganz vergessen, da 
Taifun nur, Ganze Zahlen 
(Integer Compiler) akzep- 
tiert. 

Diese Einschränkungen 
macht der Compiler aber 
durch eine starke Befehls- 
erweiterung wett. Grafic- 
(eircle, fill) und Scrollbe- 
fehle (line) und eine Reihe 
von Erweiterungen, die ' 
hauptsächlich dem Maschi- 
nenprogrammierer zugute 
kommen, gehören zum Lie- 
ferumfang. Assemblerrou- 
tinen lassen sich zudem 

in Basic-Programme leicht 
einbinden, und die Erzeu- 
gung von neuen RSX- 
Befehlen ist ebenfalls mög- 


„lich. Die neuen Befehle 


können aus Basic und 
Maschinenroutinen be- 
stehen und stehen nach 
dem Übersetzungsvorgang 
und gewohntem Aufruf 


. (Shift+Klammeraffe,Name) 


zur Verfügung. Nutzt 


.man diese Programmier- 


möglichkeiten konsequent 
aus, erhöht sich die Pro- 
grammeffizienz beträcht- 
lich, und der verfügbare 
Speicher von 16 k reicht 
in der Regel aus. 


FAZIT: 


Wenn man von den ge- 
nannten Einschränkun- 
gen (Integerzahlen, Hand- 
buch) einmal absieht, so 
darf mit Recht behauptet 
werden, daß man für die 
CPCs schwerlich einen 
besseren Compiler finden 
wird. Seinen Preis von 
DM 125,— ist er allemal 
wert. Erfahrungen i im 
Maschinensprachebereich 
und gute Basickenntnis- 
se sollte der Anwender 
allerdings mitbringen, 
sonst wird wohl vieles, 
was Taifun z.B. an Erwei- 
terungen mitbringt, nutz- 
los brach liegen. (G.W.) 


TEST 


COMAL 80: 
EINFACH UND 
LEISTUNGSFÄHIG 


Mit der Programmierspra- 
che Comal-80 entwickel- 
ten die Dänen B. Christen- 
sen und B. Loefstedt eine 
einfache und dennoch 
außerordentlich leistungs- 
fähige Sprache, die an 
skandinavischen Schulen 
seit geraumer Zeit bereits 
zum Schulstandard avan- 
ciert ist und auch in 
Deutschland in der jüng- 
sten Zeit mehr und mehr 
Anhänger findet. Vor 
kurzem stellte die Comal- 
Gruppe Deutschland eine 
aktuelle Schneider-Ver- 
sion (1.83) vor. 


DAS KONZEPT 


Comal orientiert sich in 
erster Linie an Basic und 
Pascal, wenngleich auch 
Elemente aus Logo 
(Turtlegraphic) und Forth 
erkennbar sind. 

Als strukturierte Sprache 
enthält Comal alle wichti- 
gen Struktureigenschaften 
von Pascal, verbleibt 

aber gleichzeitig in der ge- 
wohnten Betriebssystem- 
umgebung von Basic, was 
einerseits eine rasche‘ 
Erlernbarkeit fördert, 
zum anderen aber auch 
interaktives Arbeiten er- 
möglicht. 

Im Direktmodus aufruf- 
bare Prozeduren (neu 
festgelegte Befehle) und 
Funktionen, ein über- 
sichtliches Package Kon- 
zept (z.B. wird das Gra- 
phikpacket mit “use 
graphics‘ aus dem Pro- 
gramm heraus aufgeru- 
fen), ein Full-Screen- 
Editor (ein Novum für 
Schneider!) und eine kom- 
fortable Fehlerbehand- 
lung (Fehlermeldung er- 
folgt in Deutsch!) im Pro- 
gramm selbst sind die 
wichtigsten Merkmale 
dieser ausdrucksstarken 
und schnellen Program- 
miersprache. 


Die kleinlichen Syntax- 


regeln von Pascal (jedes 
Semikolon, jeder Punkt 
hat an einer bestimmten 
Programmstelle seine Be- 
deutung) fehlen in Comal' 
dankenswerterweise eben- 
so wie die Notwendig- 
keit, jede Kleinigkeit vor- 
her definieren zu müssen. 


EDITIEREN 


Nach dem Programmstart 
befindet man sich im 
Direktmodus, in dem ein 
Programm erstellt wird. 
Zeilennummern müssen 
nicht notwendig eingege- 
ben werden, erleichtern 


.. aber das Editieren, beson- 


ders bei längeren Pro- 


grammen, erheblich. 


Gleich bei der Eingabe 
des Programms prüft das 
Betriebssystem die Syn- 
tax (Zeilennummern, 
Kommentarzeile) jeder 


-Zeile. Taucht ein Fehler 


auf, so wird eine deutsch- 
sprachige Fehlermeldung 


‚ausgegeben, und der Cur- 


sor springt in die fehler- 
hafte Zeile. Nach dem 
Programmstart (im Pro- 
grammmodus) erfolgt die 
zweite Programmprüfung, 
die die Programmstruktu- 
ren (z.B. Schleifenbil- 
dung, Definitionen) nach 
evtl. Unstimmigkeiten 
abklopft. Erst dann wird 
das Programm im eigent- 
lichen Sinne abgearbeitet. 
Als Interpretersprache un- 
terstützt Comal natürlich 
auch ein dialogorientier- 


tes Arbeiten am Programm. 


Programmschritte oder 
-abschnitte können jeder- 
zeit ausprobiert werden, 
ob sie den gewünschten 
Effekt erzielen. 


PROGRAMMIEREN 


Wichtige Kennzeichen ei- 
ner strukturierten Pro- 
grammiersprache sind 
das Fehlen des im Basic 
so beliebten "GOTO“- 


Befehls und die Beschrän- 
kung auf einen Befehl pro 
Programmzeile. Der Pro- 
grammablauf unter Comal 
wird im wesentlichen von 
Kontrollanweisungen 
(z.B. repeat...until) be- 
stimmt. Das Programm 
gewinnt zudem durch das 
automatische Einrücken 
von zusammengehörigen 
Programmabschnitten 

an Übersichtlichkeit. 
Setzbare Kommentare 
(Kennzeichen //) an den 
Zeilenenden tragen eben- 
falls dazu bei. 

Ähnlich wie Unterpro- 
gramme im Basic funktio- 
nieren die sogen. Proze- 
duren, obwohl eine sol- 
che Prozedur bereits eine 
Spracherweiterung dar- 
stellt und somit ungleich 
effektiver ist. Programm- 
toolerstellung (Programm- 
bausteine, die in mehre- 
ren Programmen verwen- 
det werden können) wird | 
hiermit ebenso möglich, 
wie rekursives Program- 
mieren (Prozeduren oder 
Funktionen rufen sich 
selbst auf) 

Komplexen Problemlösun- 
gen stehen somit effekt- 
volle Programmwerkzeu- 
ge — ähnlich denen des 
Turbo Pascal (Toolkits) — 
zur Verfügung. Die Über- 
tragbarkeit auf andere 
Computersysteme (z.B. 
Commodore, IBM usw.) 
ist gegeben, solange sich 
der Programmierer an den 
Sprachkern (kernel) von 
Comal-80 hält und nicht 
auf systembezogene 
Packages zurückgreift. 
Leider sind die mit Comal- 
80 erstellten Programme 
ohne den Interpreter (das 
ist bei allen Interpretern 
so) nicht lauffähig, so 
dafs der Programmverbrei- 
tung doch einiges im 
Wege steht. 
Umfangreiches läßt sich 
im verfügbaren “Comal- 
speicher“ von 11 k aller- 
dings sowieso nicht reali- 
sieren, auch wenn auf der 
Programmebene eine Ver- 
kettung (links) von Teil- 
Programmen möglich ist. 
Diesem Mangel werden 
die Comal-Leute aber in 
Kürze mit einem Modul 
(40 k frei, höhere Ar- 
beitsgeschwindigkeit usw.) 
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akta/ 


abhelfen. Vielleicht gibt 
esin Zukunft ja auch 
noch einen Comal-Com- 
piler, wer weiß. 


FAZIT 


Jedem Anwender, der 
sich für eine strukturier- 
te Programmiersprache 
interessiert, kann Comal 
schon in der vorliegenden 
Version nur wärmstens ° 
empfohlen werden. 
Neben der leichten Er- 
lernbarkeit der Sprache 
wird auch der Preis des 
Programmpakets (Spra- 
che + div. Packages + 
Demos + Handbuch) von 
DM 69,— zu einer wei- 
teren Verbreitung bei- 
tragen. Neuere deutsch- 
sprachige Literatur und 
die starke Unterstützung 
durch die deutschen 
Comalgruppen (eigene 
Zeitschrift!) machen es 
jedem leicht, in eine Pro- 
grammiersprache einzu- 
steigen, die vielleicht ei- 
nes Tages Basic verdrän- 
gen wird. 


Info 


Diskette Comal-80-Ver- 
sion 1.83 mit Handbuch 
DM 69,— 

von: Comal Gruppe 
Deutschland, 

2270 Utersum/Foehr, 
Tel. 04683/500 


Kontaktadressen 


S. Bauer, Kaufgasse 4, 
7204 Wurmlingen 
(Comal Gruppe Süd) 
Alexander Knapp, 
Giersdorfstraße 10, 
2800 Bremen 
(Interessengruppe) 
Christiane Canisius, 
Freiheitsstr. 30, 
4000 Düsseldorf 12 
(User Club) 


Literatur 


B. Christensen: Struktu- 

rierte Programmierung 

mit Comal, . 

Oldenburg "Verlag 1985 

Fischer: Comal in Bei- 

Den: Teubner Verlag 
tuttgart 1986 

Birkenbiehl: Von Basic 

zu Comal, 

Luther Verlag 1985 

Gerhard Wertenbach 
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Auch das ist neu bei SCHNEIDER AKTIV: 
Jeden Monat küren wir das „‚Listing des Monats!”, 
Dafür erhält der Programmierer bare 1000 Mark 
” auf die Hand. Allerdings stellen wir schon etliche 
. Anforderungen, irgendein „Feld/Wald/Wiesen-Listing” 
a hat da keine Chance. Also: Gehirn einschalten, 
Gehirnschmalz drauf schmieren und den Schneider 
anwerfen. Mehr darüber auf unserer Seite 50. 
Preisträger in diesem Monat: Alwin Ertl mit seinem 
nachfolgendem „CPC-Artist‘. Herzlichen Glückwunsch 
; ur . : Mi Pi N} 
Er 


E) 
KEN 


. : ri j ” 
13372 WE 
TR: ; ü 


ONATS!, 


Z 


39 


STING DES 


Schneiden? 
akt 


Der CPC ARTIST besteht 
aus drei Programmen, die 
sich unter AMSDOS ge- 
genseitig nachladen. Aber 
auch mit Kassette kön- 
nen Sie herrliche Grafiken 
erzeugen, wenn Sie auf 
einige komfortable Eigen- 
schaften des ARTIST 
verzichten. 

Um die Programme be- 
quem aufrufen zu können, 
speichern Sie am besten 
zunächst das Startpro- 
gramm unter dem Namen 
ARTIST auf einer Disket- 
te ab. Von diesem Pro- 
gramm aus gelangen Sie 
in GRAFGEN oder 
PAINTER, je nachdem, 
was Sie machen wollen. 
Mit GRAFGEN können 
Sie die Vorarbeit für den 
PAINTER leisten: Neue 
Zeichen und Grafiksym- 
bole definieren. Grafik- 
symbole, sog. Icons, ha- 
ben den Vorteil, daß sie 
von 2x2 bis 60x24 Punk- 
ten jede beliebige Größe 
haben können, während 
die Zeichen (Characters) 
auf 8x8 Punkte be- 
schränkt sind. 


KOMFORTABLES 
MALPROGRAMM 


Dafür läuft der Druck von 
Icons wesentlich langsa- 
mer ab. Sie sind daher für 
häufig verwendete Grafik- 
teile, Logos, übergroße 
Lettern u.ä. gedacht; 
Characters, die über die 
Neudefinition des Zei- 
chensatzes laufen, sind in 
erster Linie für neue Buch- 
staben oder besondere 
Druckzeichen (Grie- 
chisch, math.-techn. Sym- 
bole) vorgesehen. 

Die Definition läuft über- 
all gleich ab: Tippen Sie 
auf der Tastatur das Zei- 
chen, das ein neues Aus- 
sehen bzw. ein Icon zuge- 
teilt erhalten soll. Bei 
Icons müssen Sie noch 
zusätzlich die Größe an- 
geben. Eine Matrix für 
die Definition erscheint 
auf dem Bildschirm. Jetzt 
stehen Ihnen folgende 
Tasten zur Verfügung: 


*  Pfeiltasten: bewegen 
den (als ? dargestell- 
ten) Pseudo-Cursor 
setzt einen Punkt 
löscht einen Punkt 


“: 
*g: 


LISTING 


CPC- 
ARTIST: 


DAS SUPER- 


GRAFIK 
PROGRANM 


*O: spiegelt oberen Bild- 
teil nach unten 

*L: spiegelt den linken 
Bildteil nach rechts 

*|: invertiert das Sym- 

bol (d.h. O wird zu 

1 und umgekehrt) 

*Z: löscht die Definition 


Die Sonderfunktionen 
(O, L, I, Z) benötigen da- 
bei etwas Zeit, während 
der das Bild rot leuchtet. 
Wenn der Computer Ihre 
Eingaben erwartet, leuch- 
tet der Bildschirm grün. 
Der Hintergrund bleibt, 
um die politische Ausge- 
wogenheit wieder herzu- 
stellen, schwarz. 

Die einzelnen Zeichen/ 
Icons werden in einer 


Datei abgelegt. Wenn Sie 


eine bereits begonnene 
Datei erweitern wollen, 
wählen Sie die Nummer 

2 im Untermenü, sonst 
die Nummer |. Um eine 
Definition wieder aus der 
Datei zu entfernen, ist die 
3 da. Nebenbei bemerkt: 
Sie sollten aufpassen, daß 
niemals zwei Definitio- 
nen für dieselbe Taste in 
der gleichen Datei stehen. 
Menüpunkt 4 ist da hilf- 
reich: Er gibt Ihnen den 
gesamten Dateiinhalt auf 
dem Bildschirm oder dem 
Drucker aus. Die Bild- 
schirmausgabe kann dabei 
mit ESC unterbrochen 
werden (das Bild läuft 
nämlich nach oben durch) 
und mit einer anderen 
Taste fortgesetzt werden. 
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Da das Programm menü- 
gesteuert ist, ergibt sich 
das meiste von selbst, was 
die Bedienung anbetrifft. 
Da Sie aber mit Charac- 
ters und Icons allein noch 
nicht viel anfangen kön- 
nen, wenden wir uns jetzt 
dem PAINTER zu. 

Der PAINTER ist ein 
komfortables Mal-Pro- 
gramm, mit dem Sie in 
allen Bildschirmmodi 
zeichnen können. Sie kön- 
nen dabei die maximal 
mögliche Anzahl an Far- 
ben ausnutzen. Angezeigt 
werden die Farben im 
Programmteil ““Malen“ 
am unteren Bildschirm- 
rand als Farbleiste, die 
zunächst nur weiß leuch- 
tet. Der Grafikcursor 

(Ihr ““Zeichenstift‘‘) steht 
ebenfalls links unten, 
knapp über der linken 
Ecke des Farbbalkens. 
Rechts neben den Farben 
erscheint ein Fragezei- 
chen, das Ihnen anzeigt, ° 
daß Sie nun einen der fol- 
genden Befehle eingeben 
können: 


T = TINTE SETZEN 


Wählen Sie ein Feld der 
Farbleiste mit Links- und 
Rechtspfeil. Eine andere 
Taste ändert die Farbe 
des Feldes (das gewählte 
blinkt jeweils). Mit 


"COPY verlassen Sie die- 


sen Modus. 
F = FARBE WÄHLEN 


In der bei T beschriebe- 
nen Weise wählen Sie hier 
den “Farbtopf“‘, den Sie 
zum Zeichnen verwenden 
wollen. 


L = LINIE.ZIEHEN 


Von der augenblicklichen 
Position des Grafikcursors 
aus wird eine Linie gezo- 
gen. Die Zifferntasten 
rund um die 5 geben die 
Richtung an; die 5 selbst 
beendet diesen Modus. 
Achtung: Die Ziffernta- 
sten haben keine Wieder- 
holfunktion! Für längere 
Linien sollten Sie aber 
nicht “‘'hacken“, sondern 
stattdessen die Tasten 
des ““normalen‘ Key- 
boards benutzen. 


B = BREITE LINIEN 
Wie L: nur werden hier 


| LISTING | Schneider 


Linien in dreifacher Brei- 
te gezogen. Experimentie- 
ren Sie damit — diese 
Option ermöglicht hüb- 
sche dreidimensionale 
Effekte. 


M= MOVE 


Mit den Pfeiltasten kann 


der Grafikcursor bewegt 
werden. Ende mit COPY. 
M dient dazu, den Cur- 
sor an eine Position zu 
lenken, an der einige der 
anderen Befehle ihn be- 
nötigen. Bei den meisten 
der folgenden Anweisun- 
gen ist die Bewegung an 
einen Anfangspunkt meist 
mit inbegriffen. 


S = SPIEGELN 


Ist einer der komplizier- 
testen Befehle. Sie kön- 
nen einen rechteckigen 
Bildteil an einer horizon- 
talen oder vertikalen Ach- 
se spiegeln. Setzen Sie zu- 
nächst den Anfangspunkt 
der Achse (Cursortaste 
und — wichtig! — zwei- 
mal COPY). anach be- 
tätigen Sie eine der Pfeil- 
tasten so lange, bis die 
Spiegelachse in der ge- 
wünschten Länge und 
Richtung erscheint. Noch- 
mals ein Druck auf COPY, 
und Sie können die Höhe 
des Rechtecks festlegen. 
Obwohl sich der Cursor 
dabei in alle Richtungen 
bewegen läßt, wird dabei 
nur der Abstand senk- 
recht zur Achse berück- 
sichtigt. Ein letztes Mal 
müssen Sie COPY betäti- 
gen, und der Bildschirm- 
ausschnitt wird automa- 
tisch gespiegelt. 


U = ÜBERTRAGEN 


Wieder geht es um einen 
rechteckigen Bildschirm- 
ausschnitt, diesmal soll er 
von einer Stelle des Bil- 
des an eine andere kopiert 
werden. Benützen Sie die 
Pfeiltasten und COPY, 
um die linke untere und 
rechte obere Ecke des 
Rechtecks festzulegen. 

In gleicher Weise setzen 
Sie die linke untere Ecke 
-des Ausschnitts, an den 
kopiert werden soll. Das 
war’s dann auch schon. 
Hier wie bei allen ande- 
ren Befehlen gilt: Es darf 
ruhig über den Bildschirm- 


bereich hinaus kopiert 
oder gezeichnet werden. 
Allerdings sehen Sie dann 
nicht viel von Ihrem 
Werk... 


A = AUSFÜLLEN 


Bewegen Sie den Grafik- 
cursor in eine Fläche hin- 
ein, die von der aktuellen 
Zeichenfarbe vollständig 
umrahmt ist, dann starten 
Sie den Füll- -Vorgang mit 
COPY. Evtl. wird die 
Fläche nicht vollständig 
ausgefüllt; wiederholen 
Sie in einem solchen 
Fall die A-Anweisung in 
dem noch leeren Bereich. 
(Das geht in BASIC 
schneller als ein aufwen- 
diger Füll-Algorithmus!) 


R = RECHTECK 


Setzen Sie in bewährter 
Weise die linke untere und 
rechte obere Ecke. Den 
Rest macht der CPC. 


.O = OVAL 


Zuerst muß ein Mittel- 
punkt festgesetzt werden. 
Danach können Sie den 
Cursor nach links und 
rechts bewegen, um die 
horizontale Halbachse 
festzulegen. Nach dem 


"Druck auf COPY springt 


der Cursor zum Mittel- 
punkt zurück, woraufhin 


- Sie die vertikale Halb- 


achse festsetzen können. 
Wie bei S können Sie hier 
den Cursor jeweils in alle 
Richtungen bewegen; es 
wird jedoch nur die hori- 
zontale bzw. vertikale Ab- 
weichung vom Mittelpunkt 
berücksichtigt. 


E= ECK 


Mit den Pfeiltasten und 
COPY können Sie bis zu 
80 Punkte fixieren. Ein 
Druck auf die Leertaste 
erlaubt die Definition ei- 
nes weiteren Punktes. Mit 
jeder anderen Taste wer- 
den die Punkte in der Rei- 
henfolge, in der sie ge- 
zeichnet wurden, verbun- 
den. Das Ganze hieße 
aber nicht “Eck‘“‘, wenn 
die Verbindungslinie nicht 
geschlossen würde: Die 
Linie vom letzten zum 
ersten Punkt wird näm- 
lich automatisch einge- 
zeichnet. 


V = VERBINDE 


Verbinde läuft fast genau- 


so wie E; die Linie vom 
letzten zum ersten Punkt 
entfällt jedoch. 


G = GERADE LINIE 


Hier müssen Sie nur An- 
fangs- und Endpunkt der 
Linie setzen. 


W= WEGWERFEN 


Vorsicht! Diese Option 
löscht das Bild. Tippen Sie 
nicht versehentlich die 
Taste W! 


K= KASSETTE ODER 
DISKETTE 


Nach der Eingabe eines 
Dateinamens (Achtung: 
8-Zeichen-Grenze beach- 
ten bei Verwendung von 
Disketten!) wird das Bild 
gespeichert. Für ein Bild 
werden 18 K freier Platz 
benötigt, bzw. 9 Blöcke 
auf der Kassette. 


H = HINTERGRUND 
Mit Links- und Rechts- 
pfeilen kann die Hinter- 


grundfarbe geändert wer- 
den; COPY beendet. 


= RAHMEN 


Wie H — nur für den 
Rahmen. 
Z = ZOOM 


Wie U, aber mit Vergröße- 
rung. Statt einem Punkt 


akti 


und vertikaler Richtung 
jeweils zwei Punkte ge- 
setzt, so daß die Kopie 
schließlich die vierfache 
Originalgröße aufweist. 


Y = LÖSCHEN 


Wählt die Hintergrund- 
farbe zum Zeichnen, so 
daß Fehler oder uner- 
wünschte Teile “ausra- 
diert‘‘ werden können. 
Mit F wird eine neue 
Zeichenfarbe gewählt. 


P = PRINT 


Alle getippten Zeichen er- 
scheinen auf dem Bild- 
schirm, bis Sie ENTER 
betätigen. Die aktuelle 
Grafikcursorposition ist 
dabei die linke obere 
Ecke des ersten Buch- 
stabens; der Cursor rückt 
automatisch nach rechts 
weiter. 

Übrigens: Auch CTRL- 
Codes werden dargestellt 
— versuchen Sie z.B. ein- 
mal CTRL-G! » 


C = CHARACTERS 
LADEN 


Geben Sie einen Dateina- 
men an, unter dem Sie 
mit GRAFGEN eine 
Character-Datei abgelegt 
haben, und stellen Sie si- 
cher, daß die entsprechen- 
de Diskette eingelegt ist. 
Die Zeichen werden ent- 


Bitte lesen Sie weiter 
auf Seite 44 


100 211121221303 Tr 1 1 1 1 ı Tr 9 9 9 9 9 9 


 —1112112YVyTb3Th HT T Tr 1 PT TH 91 1 1 9 91 9 9 


CPC-ARTIST Menueprogramm 


11.01.1986 J 
/Alwin Ertl/ 
’ 


2121121313 DT ee HT HH US ı 1 9 9 93 


21T TTTTTTTDTDTTD TE H T ı ı 9 93 


werden in horizontaler 
110 °’ 

Version 1.0 
120 ’ (c) 1986 by 
130 
140 


150 INK 0,0:PAPER O:INK 1,15:PEN 1:BORDE 


R 0:MODE 2 


160 PRINT"CPC-ARTIST":PRINT:PRINT"Grafik 


paket fuer Schneider 


CPC 464 + Diskette" 


:PRINT: PRINT: PRINT:PRINT 
170 PRINT"Bitte waehlen Sie das Programm 


‚ mit dem Sie arbeiten moechten:" 
PRINT: PRINT"1 >>> PAINTER 


Bildern" 


:PRINT:PRINT"2 >>> GRAFGEN 


PRINT: 
zum Malen von 
zum 


Vordefinieren von Grafiksymbolen und Ch 


aracters" 


180 t$=INKEY$:IF t$="" 


OR INSTR("12",t$) 


=0 THEN 180 ELSE LOCATE 5,24:PRINT t$ 


190 IF t$="1" 
"GRAFGEN" 
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THEN RUN"PAINTER" ELSE RUN » 


Schneideyz 


100 2112322221332 PT PT PP PP PP PP 1 1 91 1 5 9 9 
2023223233 PT BP BP 1 1 1 1 1 9 9 93 
110 ? CPC-PATINTER 

Version 2.2 ® 
120 7 TTITTTTT TUT T T T T T T IT T T IT I I I TI I TU I 9 9 
211212223717 T 1 PT PP PP PT PT PP PP L ı 9 9 9 93 
130 ’ (ce) 1/1986 by BIG BUG Software 

$ ’ 

180 7PIYTYTTTITITTTT HITS TTTTT TH T IT IT IT III HI HH 
DT TITTTTITTTTHTTHTTHTHT HT HT HT HT HT HT IT I IT I TI 
190 ° 
200 ’Vorbereitungen 


210 DIM ti(15),eckx(80) ,ecky(80),ges(2): 
MODE 0:PAPER 0:INK 0,0:SPEED INK 15,15:F 
OR i=1 TO 15:INK i,26:ti(i)=26:NEXT i 
220 ges(0O)=15:ges(1)=3:ges(2)=1:SYMBOL A 
FTER 32:ON BREAK GOSUB 2120 

230 ’Menue 

240 INK 0,0:BORDER 0:CLS:PEN 1: PRINT TAB 
(4);"CPC PAINTER": PRINT TAB(4); "Version 
2.0":PRINT:PRINT"by BIG BUG Software":PR 
INT: PRINT:PRINT 

250 PRINT"1: Zeichnen 


":PRINT:PRINT"2: La 


den" :PRINT:PRINT"3: Ende": PRINT: PRINT 
260 e$="123":GOSUB 1990:PRINT t$:IF t$=" 
2" OR t$="3" THEN 300 


270 PRINT:PRINT:PRINT"MODE (0..2): s 
="012":GOSUB 1990:PRINT t$ 

280 m=VAL(t$):MODE m:IF m=0O THEN schritt 
=4 ELSE IF m=1 THEN schritt=2 ELSE schri 
tt=1 

290 GOTO 410 

300 ON VAL(t$)-1 GOTO 320,390 


ve$ 


310 ’Laden 
320 CLS: INPUT "Name" ;n$:n$=UPPER$(n$):IF 
LEFT$(n$,1)<>"!" THEN n$="'!"+n$ 


330 CLS:FOR i=1 TO 15:INK i,0:NEXT i:OPE 

NIN n$+".I":INPUT £9,m:MODE m:FOR i=1 TO 
ges(m):INPUT £9,ti(i):NEXT i:INPUT £9,p 

ap: INPUT £9,bor:CLOSEIN:LOAD n$,&C000 
340 FOR i=1 TO ges(m):INK i,ti(i):NEXT i 
:INK 0,pap:BORDER bor 
350 IF m=0 THEN schritt=4 ELSE IF m=1 TH 

EN schritt=2 ELSE schritt=1 

360 t$=INKEY$:IF t$="" THEN 360 

370 IF UPPER$(t$)="B" THEN 410 ELSE 240 
380 ’Ende: 

390 PEN 1:INK 1,26:MODE 2:PRINT'"Auf kied 

ersehen...":PRINT:PRINT"Neustart mit Tas 

te 0 des Ziffernblocks":PRINT:PRINT:KEY 

0O,"RUN"+CHR$ (34) +" ARTIST” +CHR$ (13): END 

400 ’Zeichnen 

410 x=0:y=10:pap=0:bor=0:tin=1l:zf=1 

420 FOR i=1 TO ges(m):FOR j=-19+i*20 TO 
i%X20:MOVE 53,0:DRAW j3,8,1:NEXT j,i 

430 ti(O)=pap:SOUND 1,200,10,14:LOCATE 1 

9,25:PRINT"?" ;:e$="TFLBMSUAROEVGWKHXZYPC 
IN":GOSUB 1990:LOCATE 19,25:PRINT t$;:ON 
INSTR(e$,t$) GOTO 450,520,580,690,800,8 
20,1030,1080,1180,1220,1290,1360,1430,14 
60,1480,1520,1580,1640,1700,1720,1770,18 
20,1970 

440 ’Tinte setzen 

450 INK tin,ti(tin),pap 
460 t$=INKEY$:IF t$="" 
tin,ti(tin) 


THEN 460 ELSE INK 
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‚810 


LISTING 


470 IF t$=CHR$(224) 
480 IF t$=CHR$(243) 
n?>ges(m) THEN tin=l 
490 IF t$=CHR$(242) THEN tin=stin-1:IF ti 
n<l THEN tin=ges(m):GOTO 450 ELSE 450 
500 ti(tin)=ti(tin)+1l:ti(tin)=(ti(tin) M 

OD 27):GOTO 450 

510 ’Farbe waehlen 

520 INK zf,ti(zf),pap j 

530 t$=INKEY$:IF t$="" THEN 530 ELSE INK 
zf,ti(zf) , 
540 IF t$=CHR$(243) THEN zf=zf+1:IF zf>g 
es(m) THEN zf=1:G0TO 520 ELSE 520 

550 IF t$=CHR$(242) THEN zf=zf-1:IF zf<1 
THEN zf=ges(m):GOTO 520 ELSE 520 

560 INK zf,ti(zf):GOTO 430 

570 ’Linie ziehen . 

580 e$="123456789":GOSUB 1990:PLOT x,y,2z 
f:ON VAL(t$) GOTO 590,600,610,620,430,63 
0,640,650,660 

590 x=x-schritt:y=y-2:GOTO 670 

600 y=y-2:GOTO 670 

610 x=x+schritt:y=y-2:GOTO 670 

620 x=x-schritt:GOTO 670 

630 x=x+schritt:GOTO 670 

640 x=x-schritt:y=y+2:GOTO 670 

650 y=y+2:GOTO 670 

660 x=x+tschritt:y=y+2 

670 DRAW x,y,zf:GOTO 570 

680 ’Breite Linie 

690 e$="123456789" 


THEN 
THEN 
:GOTO 


430 
tin=stin+1:IF ti 
450 ELSE 450 


:GOSUB 1990 :xs=x:!ys=y: 


ON VAL(t$) GOTO 700, 710,720,730,430,740, 
750,760,770 

700 x=x-schritt:y=y-2:GO0TO 780 

‘10 y=y-2:GOTO 780 

120 x=x+schritt:y=y-2:GOTO 780 

730 x=x-schritt:GOTO 780 

740 x=x+schritt:GOTO 780 

150 x=x-schritt:y=y+2:GOTO 780 

760 y=y+2:GOTO 780 

110 x=x+schritt:!v=sy+2 

780 DRAW x,y,zf:PLOT xs+schritt,ys+2,zf: 


DRAW x+schritt,y+2,zf:PLOT xs-schritt,ys 
-2,zf:DRAW x-schritt,y-2,21:00T0 690 

790 ’Move 

800 GOSUB 2010:IF t$<>CHR$(224) THEN 800 
ELSE 430 

’Spiegeln 

820 GOSUB 2010:IF t$<>CHR$(224) THEN 820 
830 GOSUB 2010:ef$="":ef$=ef$+CHR$(ef):x 
s=x:ys=y:PLOT x,y,ABS(TEST(x,y)=0) 

840 ef$="":Vef$=zef$+CHR$(ef):xs=x:ys=y:PL 

OT x,y,ABS(TEST(x,y)=0) 

850 t$=INKEY$:IF t$="" THEN 850 ELSE xdi 
r=0:ydir=0 

860 IF t$=CHR$(243) 
870 IF t$=CHR$(242) 
880 IF t$=CHR$(241) 
890 IF t$=CHR$(240) 
900 t1$=INKEY$ 

910 WHILE (t1$= t$ OR t1$="") AND LEN (ef$ 
)<253 

920 IF t1$="" THEN t1$=INKEY$:GOTO 940 
930 -x=xtxdir:y=y+tydir:ef$=zef$+CHR$(TES 
T(x,y)):PLOT x,y,ABS(TEST(x,y)=0):t1$=IN 
KEY$ 


THEN 
THEN 
THEN 
THEN 


xdir=schritt 
xdir=-schritt 
ydir=-2 
ydir=2 


LISTING __Schneider/ 


940 WEND 

950 xe=x:ye=y 

960 GOSUB 2010:IF t$<>CHR$(224) THEN 960 
970 IF xdir THEN 1000 

980 FOR i=ys TO ye STEP SGN(ye-ys)*2:FOR 
J3=x TO xs STEP SGN(xs-x)*schritt:PLOT x 

s+(j-x+schritt),i,TEST(xs-(j-x+tschritt), 
i):NEXT j,i 

990 z=0:FOR i=ys TO ye STEP SGN(ye-ys)*2 
ız=z+1:PLOT xs,i, ‚ASC(MID$(ef$,z, 1)):NEXT 
1:GOTO 430 

1000 FOR i=xs TO xe STEP SGN(xe-xs)*schr 
itt:FOR j=y TO ys STEP SGN(ys-y)*2:PLOT 
i,ys+t(j-y+2),TEST(i,ys-(j-y+t2)):NEXT j,i 
1010 z=0:FOR i=xs TO xe STEP SGN(xe-xs)* 
schritt:z=z+1:PLOT i,ys,ASC(MID$(ef$,z,1 
)):NEXT i:GOTO 430 

1020 ’Uebertragen 

1030 GOSUB 2010:IF t$<>CHR$(224) THEN 10 
30 ELSE xu=sx:yu=sy:eu=TEST(x,y):PLOT x,y, 

ABS(TEST(x,y)=0) 

1040 GOSUB 2010:IF t$<>CHR$(224) THEN 10 
40 ELSE xo=x:yo=y:eo=TEST(x,y):PLOT x,y, 

ABS(TEST(x,y)=0) 

1050 GOSUB 2010:IF t$<>CHR$(224) THEN 10 
50 ELSE PLOT xu,yu,eu:PLOT xo,yo,eo 

1060 FOR 'i=xu TO xo STEP schritt:FOR j=y 

u TO yo STEP 2:PLOT x+t(i-xu),j+(y-yu),TE 

ST(i,Jj):NEXT jJ,i: GOTO 430 

1070 ’Ausfuellen 

1080 GOSUB 2010:IF t$<>CHR$(224) THEN 10 

80 ELSE sx=x!sy=y 

1090 y=y+2:IF TEST(x,y)=zf OR y>400 THEN 
y=sy+2:GOTO 1130 

1100 x=x-schritt:IF TEST(x,y)<>zf AND x> 
=0 THEN. 1100 ELSE 1lx=x:x=sx 

1110 x=x+schritt:IF TEST(x,y)<>zf AND x< 
=640 THEN 1110 ELSE rx=x:!x=sx 

1120 PLOT 1x,y,zf:DRAW rx,y,zf:GOTO 1090 
1130 y=y-2:IF TEST(x,y)=zf OR y<O THEN 4 
30 

1140 x=x-schritt:IF TEST(x,y)<>zf AND x> 
=0 THEN 1140 ELSE 1lx=x:x=sx 

1150 x=x+schritt:IF TEST(x,y)<>zf AND x< 

=640 THEN 1150 ELSE rx=x:x=sx 

1160 PLOT 1x,y,zf:DRAW rX,yızf: GOTO. 1130 
1170 ’Rechteck 

1180 GOSUB 2010:IF t$<>CHR$(224) THEN 11 

80 ELSE xu=x:yu=sy:eus TEST(x,y): PLOT. x,y, 

ABS(TEST(x,y)=0) 

1190 GOSUB 2010:IF t$<>CHR$(224) THEN 11 

90 ELSE xo=x:yo=y:PLOT xu,yu,eu 

1200 PLOT xu,yu,zf: DRAW xo,yu,zf: DRAW xo 
‚yo,2zf:DRAW xu,yo,zf:DRAW xu,yu,zf:GOTO 

430 

1210 ’Oval 

1220 GOSUB 2010:IF t$<>CHR$(224) THEN 12 

20 ELSE xm=x:ym=y:em=TEST(x,y):PLOT x,y, 

ABS(TEST(x,y)=0) 

1230 GOSUB 2010:IF t$<>CHR$(224) THEN 12 

30 ELSE xr=x:yr=y:er=TEST(x,y):PLOT x,y, 

ABS(TEST(x,y)=0O):IF x>xm THEN ri=x-xm EL 

SE rl=xm-x 

1240 x=xm:y=ym 

1250 GOSUB 2010:IF t$<>CHR$(224) THEN 12 


akti 


y 

1260 PLOT xm,ym,em:PLOT xr,yr,er 

1270 DEG:PLOT xm+tri,ym,zf:FOR i=0 TO 360 
:DRAW xm+COS(i)*rl,ym+SIN(i)*r2,zf:NEXT 

i1:GOTO 430 

1280 ’Eck 

1290 ez=0 

1300 ez=zez+1:IF ez>80 THEN ez=80:GOTO 13 

40 

1310 GOSUB 2010:IF t$<>CHR$(224) THEN 13 
10 ELSE eckx(ez)=x:ecky(ez)=y:PLOT. x,y,A 

BS(TFST(x,y)=0) 

1320 t$=INKEY$:IF t$="" THEN. 1320 

1330 IF t$=" " THEN 1300 

1340 PLOT eckx(1),ecky(1),zf:FOR i=2 TO 

ez:DRAwW eckx(i),ecky(i),zf:NEXT i:DRAW e 

ckx(1),ecky(1),zf:GOTO 430 

1350 ’Verbundener Linienzug 

1360 ez=0 

1370 ez=zez+1:IF ez>80 THEN ez=80:GO0TO 14 
10 

1380 GOSUB 2010:IF tSCOCHR$ (224) THEN 13 

80 ELSE eckx(ez)=x:ecky(ez)=y:PLOT xX,y,A 

BS(TEST(x,y)=0) 

1390 t$=INKEY$:IF t$="" 
1400 IF t$=" " THEN 1370 
1410 PLOT eckx(1),ecky(1),zf:FOR i=2 TO 

ez:DRAW eckx(i),ecky(i),zf:NEXT i:GOTO 4 
30 

1420 ’Gerade 

1430 GOSUB 2010:IF t$<>CHR$(224) THEN 14 
30 ELSE ax=x:ay=y:PLOT x,y,ABS(TEST(x,y) 
=0) 

1440 GOSUB 2010:IF t$<>CHR$(224) THEN 14 
40 ELSE PLOT ax,ay,zf:DRAW x,y,zf:GOTO 4 
30 

1450 ’Weg damit 

1460 CLEAR:RUN 

1470 ’Kassette 

1480 LOCATE 1,25:INPUT "Name";n$:IF LEFT 
$(n$,1)<>"!" THEN n$="!"+n$ 

1490 FOR i=0 TO 16:MOVE 0,i:DRAW 640, 1,0 
:NEXT i 

1500 OPENOUT n$+".I":PRINT£9,m:FOR i=1 T 

O ges(m):PRINT£9,ti(i):NEXT i:PRINT£Y,pa 

p:PRINT&£9,bor: CLOSEOUT: SAVE n$,b,&C000,( 

&FFFF- &C000): GOTO 420 

1510 ’Hintergrund 

1520 INK O,pap 

1530 t$=INKEY$:IF t$="" THEN 1520 

1540 IF t$=CHR$(243) THEN pap=pap+1:IF p 

ap>26 -THEN pap=0:G0OTO 1520 ELSE 1520 
1550 IF t$=CHR$(242) THEN pap=pap-1:IF p 

ap<0O THEN pap=26:GOTO 1520 ELSE 1520 
1560 IF t$=CHR$(224) THEN 430 ELSE 1530 
1570 ’Rahmen (X) 

1580 BORDER bor 

1590 t$=INKEY$:IF t$="" THEN 1590 

1600 IF t$=CHR$(243) THEN bor=bor+1:IF b 

or?>26 THEN bor=1:GOTO 1580 ELSE 1580 
1610 IF t$=CHR$(242) THEN bor=bor-1:IF b 

or<1 THEN bor=26:GOTO 1580 ELSE 1580 
1620 IF t$=CHR$(224) THEN 430 ELSE 1590 
1630 ’Zoom 

1640 GOSUB 2010:IF t$<>CHR$(224) THEN 16 


THEN 1390 


50 ELSE IF y>ym THEN r2=y-ym ELSE r2=ynm- 40 ELSE xu=sx:yu=sy:eu=TEST(x,y):PLOT x,y, 2» 
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Schneider? 
akt 


ABS(TEST(x,y)=0) ; 
1650 GOSUB 2010:IF t$<>CHR$(224) THEN 16 
50 ELSE xo=x:yo=y:eo=TEST(x,y):PLOT x,y, 
ABS(TEST(x,y)=0) i 

1660 GOSUB 2010:IF t$<>CHR$(224) THEN 16 
60 ELSE PLOT xu,yu,eu:PLOT xo,yo,eo 

1670 zi=-schritt:FOR i=xu TO xo STEP sch 
ritt:zil=zi+schritt:z2=-2:FOR j=yu TO yo 
STEP 2:z2=z2+2:ef=TEST(i,j):PLOT x+(i-xu 
+z1l),jt+t(y-yutz2),ef:PLOT x+(i-xutzl)+tsch 
ritt,jt+t(y-yutz2),ef 

1680 PLOT x+(i-xutzl),j+t(y-yutz2)+2,ef:P 
LOT x+(i-xu+tzl)+schritt, jt(y-yutz2)+2,ef 
:NEXT J,i1:GOTO 430 

1690 ’Loeschen (Y) 

1700 zf=0:G0TO 430 

1710 ’Print 

1720 TAG:PLOT a09,200,zf 

1730 t$=INKEY$:IF t$="" THEN 1730 

1740 IF t$=CHR$(13) THEN TAGOFF:PEN 1:GO0 
TO 430 

1750 MOVE x,y:TAG:PRINT t$; :x=x+8%schrit 
t:GOTO 1730 

1760 ’Characters laden 

1770 LOCATE 1,25:INPUT "Datei";datei$ 
1780 FOR i=0 TO 16:MOVE 0,i1:DRAW 640,i1,0 
NEXT i 

1790 OPENIN datei$:WHILE NOT EOF:INPUT £ 
9,z,c1,c2,c3,c4,c5,c6,c7,c8:SYMBOL z,cl1l, 
c2,c3,c4,c5,c6,c7,c8:WEND 

1800 CLOSEIN:GOTO 420 

1810 'Icons zeichnen 

1820 LOCATE 1,25:INPUT "Datei";datei$ 
1830 LOCATE 1,25:PRINT SPACE$(19);:LOCAT 
E 1,25:PRINT"Zeichen: ?"; 

1840 t$=INKEY$:IF t$="" THEN 1840 

1850 IF t$=CHR$(13) THEN FOR i=0O TO 16:M 
OVE 0,i:DRAW 640,1,0:NEXT i:GOTO 420 
1860 LOCATE 10,25:PRINT t$; 

1870 OPENIN datei$:xs=x:!ys=y 

1880 INPUT £9,a$:IF a$="$$$" THEN CLOSEI 
N:GOTO 1830 

1890 IF a$<>t$ THEN 1880 

1900 a$="xxx":WHILE LEN(a$)>1 AND a$<>"$ 
$$" 

1910 x=xs: INPUT £9,a$:IF LEN(a$)>1 THE 
N sl=LEN(a$) 


1920 FOR i=1 TO LEN(a$) 

1930 IF MID$(a$,i,1)="1" THEN PLOT x,y 
‚zf 

1940 x=x+schritt:!:NEXT i:y=y-2 


1950 WEND:CLOSEIN:y=ys:x=x+sl%schritt:GO 
TO 1830 

1960 ’Normaler Zeichensatz 

1970 SYMBOL AFTER 254:SYMBOL AFTER 32:G0 
TO 430 

1980 ’UP Eingabe 

1990 t$=INKEY$:IF t$="" THEN 1990 

2000 t$=UPPER$(t$):IF INSTR(e$,t$)=O THE 
N 1990 ELSE RETURN 

2010 ’UP Grafikcursor steuern 

2020 ef=TEST(x,y):PLOT x,y,ABS(TEST(x,y) 
=0) 

2030 t$=INKEY$:IF t$="" 
LOT x,y,ef 

2040 IF t$=CHR$(243) 


THEN 2030 ELSE P 


THEN x=x+schritt:GO 


LISTING 


TO 2080 

2050 IF t$=CHR$(242) 
TO 2080 

2060 IF t$=CHR$(241) 
0 

2070 IF t$=CHR$(240) 
0 ELSE RETURN 


2080 IF x>639 THEN x= 


x=640 
2090 
y=2400 
2100 GOTO 2020 
2] 10 "Abbruch 


IF y>399 THEN y= 


THEN x=x-schritt:GO 
THEN y=y-2:GOTO 208 
THEN y=y+2:GOTO 208 
0 ELSE IF x<O THEN 


0 ELSE IF y<O THEN 


2120 x=0:y=10:GOTO 430 
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sprechend umdefiniert; 
die Wirkung dieses Be-. 
fehls zeigt sich aber erst 
beim nächsten “P“. 


I = ICONS ZEICHNEN 


Hier wird ein Dateiname 
benötigt, unter dem sich 
eine Icon-Datei befindet. 
Bis Sie ENTER betätigen, 
erscheint das jeder getipp- 
ten Taste zugeordnete 
Icon auf dem Bildschirm. 
Wie bei P ist die aktuelle 
Position die linke obere 
Ecke des ersten Symbols 
und rückt den Cursor au- 
tomatisch entsprechend 
nach rechts. 


N = NORMALER 
ZEICHENSATZ 


Hebt die Wirkung eines 
C-Befehls auf. 


ESC ESC = NOTBREMSE 


Damit können Sie einmal 
eine unerwünschte Opera- 
tion abbrechen, wie etwa 
einen A-Befehl, der durch 
einen Bedienungsfehler 
den ganzen Bildschirm aus- 
zufüllen droht. Danach 
sollten Sie das Bild ab- 
speichern (K), das Pro- 
gramm zurücksetzen (W) 
und das Bild neu laden. 
Dieses Laden erfolgt mit 
Punkt 2 des Hauptmenüs. 
Sobald das Bild erscheint, 
können Sie B tippen, um 
es weiter zu bearbeiten. 
Jede andere Taste zeigt 
wieder das Hauptmenü. 
Wenn Sie kein Disketten- 
laufwerk besitzen, beach- 
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ten Sie bitte folgende 
Einschränkungen: 
Dateinamen müssen mit 
einem ! am Anfang ein- 
gegeben werden. Bevor 


. eine Datei geladen wird, 


mufßs das Band an den Be- 
ginn des Files gespult und 
die PLAY-Taste gedrückt 


“ werden. Gleiches gilt 


beim Speichern für REC/ 
PLAY. Icons sind auf 
Kassette kaum möglich, 
da Sie vor jedem Tasten- 
druck das Band zurück- 
spulen müßten und kaum 
erträgliche Zugriffszeiten 
“entstehen. Außerdem müs- 
sen Character-Dateien 
“am Stück“ angelegt wer- 
den, da eine nachträgliche 
Erweiterung nicht möglich 
ist. Am günstigsten ist es, 
wenn Sie lediglich den 
PAINTER ohne Icon- und 
Character-Option einset- 
zen. 

Einige PAINTER-Ideen: 
Hübsche Bilder von naiv 
bis modern, technische 
Zeichnungen wie Schalt- 
pläne oder kleine Kon- 
struktionen zu Lern- und 
Lehrzwecken, Plakate 
unter Verwendung von 
Characters und Icons. 

Vor allem letztere Möglich- 
keit kann auch als Vor- 
führprogramm in Com- 
puterläden dienen. Das 
folgende kleine Programm 
führt eine beliebige An- 


Bitte lesen Sie weiter 
auf Seite 46 


LISTING 


100 EFT PELETETKITEHEE HELLE EREITITVITITUS 
rn) 
110 ° GRAFGEN 

Version 2.0 11.01.1986 ’ 
120 ’ (c) 1986 by /Alwin Ertl/ 

’ 

130 rer en 
JYTTTITITTTITTTTT HT HT HT HT CH HT HT T T T I I I I I I I 93 
140 ’ 
150 ’Vorbereitungen 
160 INK 0,0:PAPER O:INK 1,21:INK 2,6:INK 


3,24:BORDER O0 

170 DIM code(8),code$(24):steuer$=CHR$(2 
24)+CHR$(240)+CHR$ (241) +CHR$(242)+CHR$(2 
43)+"OLIZ10" 

180 ’Hauptmenue 

190 MODE 1:PEN 3:PRINT"GRAFIKGENERATOR 
V 2.0" 

200 PEN 1:LOCATE 1,6:PRINT"1 > Zeichened 
itor":PRINT:PRINT:PRINT"2 > Symboleditor 
":PRINT:PRINT:PRINT"3 > Ende" 

210 PEN 2:LOCATE 1,24:PRINT"Bitte waehle 
n: ". 
220 t$=INKEY$:IF t$="" OR INSTR("123",t$ 
)=0 THEN 220 
230 PRINT t$:PEN 1:ON VAL(t$) GOTO 250,4 


40,650 

240 ’Zeicheneditor . 

250 MODE 2:PRINT"ZEICHENDITOR" :PRINT:GOS 
UB 680 

260 IF dat=5 THEN 190 

270 IF dat=4 THEN GOSUB 1260:G0TO 190 
280 IF dat=3 THEN GOSUB 1060:G0OTO 190 
290 IF dat=1 THEN OPENOUT datei$:GOTO 34 
0 

300 hilf$="scratch.$$$":OPENOUT hilf$:OP 


ENIN datei$ . 
310 WHILE NOT EOF 

320 INPUT £9,z,c1,c2,c3,c4,c5,c6,c7,c8 
:PRINT£9,z,c1,c2,c3,c4,c5,c6,c7,c8 

330° WEND:CLOSEIN 

340 PRINT"Welches Tastaturzeichen soll n 
eu definiert werden? Bitte tippen: "; 
350 t$=INKEY$:IF t$="" OR t$<" " THEN 35 
0 ELSE zeichen=ASC(t$):PRINT t$ 

360 xausd=8:yausd=8:GOSUB 730 

370 FOR i=1 TO 8:code(i)=VAL("&X"+code$( 
i)):NEXT i:PRINT£9,zeichen,code(1),code( 
2),code(3),code(4),code(5),code(6),code( 


7),code(8,) 

380 CLS:PRINT"Weitere Zeichen in diese D 
atei? J/N : "; 

390 t$=UPPER$(INKEY$):IF t$="" OR INSTR( 


"JIN",t$)=0 THEN 390 ELSE PRINT t$ 
400 IF t$="J" THEN PRINT:GOTO 340 
410 CLOSEOUT:IF dat=1 THEN 190 


420 !ERA,@datei$:: REN,@datei$,@hilf$:GOT 
oO 190 : 

430 ’Symboleditor 

440 MODE 2:PRINT"SYMBOLEDITOR" :PRINT:GOS 
UB 680 

450 IF dat=5 THEN 190 

460 IF dat=4 THEN GOSUB 1320:GOTO 190 
470 IF dat=3 THEN GOSUB 1150:GOTO 190 
480 IF dat=1 THEN OPENOUT datei$:GOTO 53 
0 


akt? 


490 nilf$="scratch.$$$":OPENOUT hilf$:OP 

ENIN datei$:INPUT £9,a$ 

500 WHILE a$<>"$$$" 

510 PRINT£9,a$: INPUT £9,a$ 

520 WEND:CLOSEIN " 

530 PRINT"Symbol fuer welches Tastaturze 

ichen? Bitte tippen: "; 

540 t$=INKEY$:IF t$="" THEN 540 ELSE zei 

chen=ASC(t$):PRINT t$ 

550 PRINT:INPUT "Breite des Symbols (2.. 

60 Punkte): ";xausd:IF xausd<2 OR xausd> 

60 THEN 550 

560 PRINT:INPUT "Hoehe des Symbols (2..2 

4 Punkte): ";yausd:IF yausd<2 OR yausd>6 

0O THEN 560 

570 GOSUB 730 

580 PRINT£9,CHR$(zeichen):FOR i=1 TO yau 

sd:PRINT£9,code$(i):NEXT i 

590 CLS:PRINT"Weitere Symbole in diese D 

atei? J/N : "; 

600 t$=UPPER$(INKEY$):IF t$="" OR INSTR( 

"JIN",t$)=0 THEN 600 ELSE PRINT t$ 

610 IF t$="J" THEN PRINT:GOTO 530 

620 PRINT&£9,"$$$'":CLOSEOUT:IF dat=1 THEN 
190 


630 :ERA,@datei$:!REN,@datei$,@hilf$:GOT 
oO 190 

640 ’Programmende 5 
650 CLS:PRINT"Auf Wiedersehen...":PRINT: 


PRINT"Neustart mit Taste O0 des":PRINT"Zi 
ffernblocks.":PRINT:PRINT 

660 KEY O,"RUN"+CHR$(34) +"ARTIST"+CHR$ (1 
3):END 

670 ’UP Diskmenue 

680 PRINT"1 > Neue Datei anlegen":PRINT" 
2 > Alte Datei ergaenzen":PRINT"3 > Zeic 
hen aus Datei entfernen":PRINT"4 > Datei 
inhalt anzeigen":PRINT"5 > Zurueck zum H 
auptmenue":PRINT"Bitte waehlen: "; 

690 tt$=INKEY$:IF tt$="" OR INSTR("12345 
"‚tt$)=0 THEN 690 


700 PRINT tt$:PRINT:dat=VAL(tt$) 

710 INPUT "Dateiname: "‚,datei$:PRINT:RET 
URN 

720 ’UP Zeichen/Symbol malen 

730 CLS:FOR ii=1 TO yausd:code$(ii)=STRI 


NG$(xausd,"O"):NEXT ii:GOSUB 1020:xxal:y 
y=1 
740 LOCATE 1,25:PRINT"Pfeile bew., 1/0 s 
etzt/loescht, O)ben-->Unten, L)inks-->Re 
chts, I)nvert, Z)ero";:LOCATE 70,2:PRINT 
CHR$ (zeichen) 

750 LOCATE xx,yy:PRINT"?";:INK 1,21 

760 tt$=UPPER$(INKEY$):IF tt$="" OR INST 
R(steuer$,tt$)=0 THEN 760 

770 LOCATE xx,yy:PRINT CHR$(144-VAL(MID$ 
(code$(yy),xx,1))); 

780 IF tt$=CHR$(224) THEN RETURN 

790 IF tt$="1" THEN SOUND 1,20,10,15:MID 
$(code$(yy),xx,1)="1":PLOT 500+xx,200-2% 
yy,1 

800 IF tt$="0" THEN SOUND 1,20,10,15:MID 
$(code$(yy),xx,1)="0":PLOT 500+xx,200-2%* 
yy,O0 

810 INK 1,6 


820 IF tt$="0" THEN GOSUB 950 


45 


SchneideyZ 
akt 


830 IF tt$="L" THEN GOSUB 970 

840 IF tt$="I" THEN GOSUB 990 

850 IF tt$="Z" THEN 730 

860 INK 1,21 

870 IF tt$=CHR$(240) THEN yy=yy-1 
880 IF tt$=CHR$(241) THEN yy=yy+1 
890 IF tt$=CHR$(242) THEN xx=xx-1 
900 IF tt$=CHR$(243) THEN xx=xx+1l 


910 IF xx<1 THEN xx=xausd ELSE IF xx>xau 
sd THEN xx=1 

920 IF yy<1 THEN yy=yausd 
sd THEN yy=1 

930 INK 1,21:GOTO 750 

940 ’UP Spiegeln Oben-Unten 

950 FOR ii=1 TO yausd\2:code$(1+yausd-ii 
)=code$(ii):NEXT ii:GOSUB 1020:RETURN 
960 ’UP Spiegeln Rechts-Links 

970 FOR ii=1 TO yausd:FOR jj=1 TO xausd\ 
2:MID$(code$(ii),1+xausd-jjJ,1)=MID$ (code 
$(ii),j3,1):NEXT Jj,ii:GOSUB 1020:RETURN 

‘980 ’UP Invertieren 

990 FOR ii=1 TO yausd:FOR jj=1 TO xausd: 
IF MID$(code$(ii),jj,1)="1" THEN MID$(co 
de$(ii),jj,1)="0" ELSE MID$(code$(ii),j) 
‚1)="1" . D 

4000: NEXT jJJ,ii:GOSUB 1020:RETURN 

1010 ’UP Vergroesserung anzeigen 

1020 LOCATE 1,1:FOR ii=1 TO yausd:FOR jj 
=1 TO xausd 

1030 PRINT CHR$(144-VAL(MID$(code$(ii),j 
J»1)))5:PLOT 500+55j,200-2*%ii,VAL(MID$(co 
de$(ii),j3,1l)) 

1040 NEXT jJ5J:PRINT:NEXT ii:RETURN 

1050 ’UP Zeichendefinition entfernen 
1060 PRINT"Definition fuer welches Tasta 
turzeichen entfernen? Bitte tippen: "; 
1070 tt$=INKEY$:IF tt$="" OR tt$<" THE 
N 1070 ELSE PRINT tt$ 

1080 hilf$="scratch.$$$":OPENOUT hilf$:0 
PENIN datei$:geloescht=0 

1090 WHILE NOT EOF 

1100 INPUT £9,z,c1,c2,c3,c4,c5,c6,c7,c 
8:IF z<»>ASC(tt$) THEN PRINT£I9,z,c1,c2,c3 
‚c4,c5,c6,c7,c8 ELSE geloescht=-1 

1110 WEND:CLOSEIN:CLOSEOUT 

1120 PRINT:IF geloescht THEN PRINT"geloe 
scht..." ELSE PRINT"nicht gefunden..." 
1130 }ERA,@datei$:ıREN,@datei$,@hilf$:RE 
TURN - 

. 1140 
1150 

chen entfernen? Bitte tippen: "; 

1160 tt$=INKEY$:IF tt$="" THEN 1160 ELSE 
PRINT tt$ 

1170 hilf$="scratch.$$$":OPENOUT hilf$:0 
PENIN datei$:geloescht=0 

1180 WHILE NOT EOF 

1190 INPUT £9,a$:IF a$=tt$ THEN geloes 

cht=-1:GOTO 1210 

1200 PRINT£9,a$:IF a$="$$$" THEN CLOSE 
IN:CLOSEOUT:GOTO 1230 ELSE 1190 

1210 INPUT £9,a$:IF LEN(a$)=1 OR a$="$ 
$$" THEN 1200 ELSE 1210 

1220 WEND:CLOSEIN:CLOSEOUT 

1230 PRINT:IF geloescht THEN PRINT"geloe 
scht..." ELSE PRINT"nicht gefunden..." 


ELSE IF yy>yau 


’UP Symbol entfernen 
PRINT"Symbol zu welchem Tastaturzei 


" 
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1240 \ERA,@datei$:}!REN,@datei$,@hilf$:RE 
TURN 

1250 ’UP Dateiinhalt anzeigen (Zeichen) 
1260 GOSUB 1380:CLS:OPENIN datei$ 

1270 WHILE NOT _EOF 

1280 INPUT £9,z,code(1),code(2),code(3 


),code(4),code(5),code(6),code(7),code(8 
) 

1290 PRINT£wo,CHR$(z):FOR ii=1 TO- 8:PR 
INT£wo,BIN$(code(ii),8):NEXT ii:PRINT£wo 


1300 WEND:CLOSEIN:PRINT"Bitte Taste...": 
CALL &BBO6 :RETURN 

1310 ’UP Dateiinhalt anzeigen (Symbole) 

1320 GOSUB 1380:CLS:OPENIN datei$ 

1330 WHILE NOT EOF 

1340 INPUT £9,a$:IF LEN(a$)=1 THEN PRI 
NT£wo 

1350 IF a$<»"$$$" THEN PRINT&£wo,a$ 


1360 WEND:CLOSEIN:PRINT"Bitte Taste...": 
CALL &BBO06 :RETURN 

1370 ’UP Bildschirm/Drucker waehlen 

1380 PRINT"Ausgabe auf Bildschirm (1) od 
er Drucker (2) ? "; 

1390 tt$=INKEY$:IF tt$="" 
tt$)=0 THEN 1390 

1400 PRINT tt$:PRINT:wo=(VAL(tt$)-1)*8:R 
ETURN 
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OR INSTR("12", 


zahl (maximal eine Dis- 
kette voll) Bildern vor:. 


100 CLEAR:RESTORE 


160 FOR i=1 TO 10000 
:NEXT i:GOTO 110 
‘Hier bel. Verzögerung 


ö AP. BEE einsetzen!’ 
oe 15 170 DATA bild1,bild2, 
a$: IF a$=""zzz" " bild3,bildx 
THEN 100 In Zeile 170 stehen selbst- 

120 b$=a$+‘.1”:OPEN verständlich die Namen der 
b$ Bilder auf der Diskette 

130 INPUT #9, m: (ohne das Suffix .I oder 
MODE m:FOR i=1 .BIN). Die Zeilen 120 
TO ges (m):INPUT bis 150 können Sie auch 
#9,f:INK i,f: NEXT ii in eigene Programme 

140 INPUT #9,f:INK übernehmen, die PAINTER- 
O,f:INPUT #9, f: Bilder laden sollen. 


BORDER f:CLOSEIN 
150 b$=a$+" BIN“: 
LOAD c$,&C000 


Und nun viel Spaß bei der 
Betätigung als “Computer- 
Künstler“. Alwin Ertl 


WENN SIE DAS 
ALLES NICHT 
EINTIPPEN 
WOLLEN! WIR HABEN 
EINEN KASSETTEN 
SERVICE! 
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NUTZEN SIE UNSEREN BEQUEMEN POSTSERVICE 


Das unabhängige Magazin 
für Schneider-Computer 


Finden Sie Ihre SCHNEIDER AKTIV nicht am Kiosk? 
Weil sie schon ausverkauft ist? Oder ‚‚Ihr‘‘ Kiosk 
nicht beliefert wurde? Kein Problem! Für ganze 60 
DM liefern wir Ihnen per Post zwölf Hefte ins Haus 
(Ausland 80 DM). Einfach den Bestellschein aus- 
schneiden — fotokopieren oder abschreiben, in ei- 
nen Briefumschlag und ab per Post (Achtung: Porto 
nicht vergessen). SCHNEIDER AKTIV kommt dann 
pünktlich ins Haus. 


KOMMT _ 
REGELMÄSSIG 
ZU IHNEN 


INS HAUS 


GARANTIE! 

Sie können diesen Abo-Auftrag bin- 
nen einer Woche nach Eingang der 
Abo-Bestätigung durch den Verlag 
widerrufen — Postkarte genügt. An- 
sonsten läuft dieser Auftrag jeweils 
für zwölf Ausgaben, wenn ihm nicht 
vier Wochen vor Ablauf widerspro- 
chen wird, weiter. 


L 


DAS SONDERANGEBOT: 
PRIVATE KLEINANZEIGEN 
SIND KOSTENLOS 


Das bietet Ihnen ab sofort SCHNEIDER AKTIV: KLEINAN- 
ZEIGEN SIND KOSTENLOS FÜR PRIVATANBIETER! Su- 
chen Sie etwas, haben Sie etwas zu verkaufen, zu tau- 
schen, wollen Sie einen Club gründen? Coupon ausfüllen, 
auf Postkarte kleben oder in Briefumschlag stecken und 
abschicken. So einfach geht das. Wollen Sie das Heft 
nicht zerschneiden, können Sie den Coupon auch fotoko- 
pieren.. Oder einfach den Anzeigentext uns so schicken, 
auf Postkarte oder im Brief. Aber bitte mit Druckbuchsta- 
ben oder in Schreibmaschinenschrift! 

Und: Einschließlich Ihrer Adresse und /oder Telefonnum- 
mer sollten acht Zeilen & 28 Anschläge nicht überschrit- 
ten werden. 

ACHTUNG: WICHTIGER HINWEIS! 

Wir veröffentlichen nur Kleinanzeigen privater Inserenten 


kostenlos, gewerbliche Anzeigen kosten pro Millimeter 
DM 5,00 plus Mehrwertsteuer! 

Wir versenden für Privat-Inserenten keine Beleg- 
Exemplare! 

DIE INSERTION IST NICHT VOM HEFTKAUF ABHÄNGIG! 
Chiffre-Anzeigen sind nicht gestattet! Wir behalten uns 
vor, Anzeigen, die gegen rechtliche, sittliche oder sonsti- 
ge Gebote verstoßen, abzulehnen! 

Anzeigenabdruck in der Reihenfolge ihres Eingangs, kein 
Rechtsanspruch auf den Abdruck in der nächsten Ausga- 
be! 

Wir behalten uns vor, Anzeigen, die nicht zum Themen- 
kreis des Heftes — Computer — gehören, nur insoweit 
zu berücksichtigen, wie es der Umfang des kostenlosen 
Anzeigenteils zuläßt. 
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ANZEIGENSERVICE 


Die große Börse für jeden Zweck in SCHNEIDER AKTIV. Kostenlos für Privat-Inserenten. Spottbillig für gewerbliche Anbieter. Ein- 
fach Coupon ausschneiden, fotokopieren 0.ä., ausfüllen und ab die Post — Freimachen nicht vergessen! — Unsere Adresse steht 
auf dem Coupon, ebenso die Preise für gewerbliche Anbieter! Achtung! Wir weisen ausdrücklich darauf hin, daß wir offensicht- 
lich gewerbliche Anzeigen nicht kostenlos veröffentlichen und uns jedweden Abdruck kostenloser Anzeigen vorbehalten müssen, 
insbesondere, wenn deren Inhalt gegen geltendes Recht verstößt. Private Chiffreanzeigen werden nicht aufgenommen. Für Pri- 
vatanbieter: etwa bis zu acht Zeilen a 28 Anschläge. Für gewerbliche Anbieter: 5 DM p.mm. bei beliebiger Größe. 


SCHNEIDER AKTIV Name 
Anzeigenabteilg. Vorname 
Postfach 1107 Straße /Hausnr. 
8044 Lohhof PLZ/Ort 


> es a u u m FE rn Yon u Lian a a ne Fr nn nn ee 
ABO-SERVICE-KARTE 


Ich nehme zur Kenntnis, Ja, ich möchte von Ihrem Angebot Ausgaben -an untenstehende An- 
daß die Belieferung Gebrauch machen. schrift. Wenn ich nicht vier Wochen 
erst beginnt, wenn die Bitte senden Sie mir bis auf Widerruf vor Ablauf kündige, läuft diese 
Abo-Gebühr dem Verlag ab sofort jeweils die nächsten zwölf Abmachung automatisch weiter. 
zugegangen ist! Name 

Vorname 

Straße /Hausnr. 

PLZ/Ort 

Ich bezahle: 


U] per beiliegendem Verrechnungsscheck 

UL] gegen Rechnung 

U} bargeldios per Bankeinzug von meinem Konto 
bei (Bank) und Ort 


Kontonummer 
Bankleitzahl 
(steht auf jedem Kontoauszug) 
SCHNEIDER AKTIV Unterschrift 
Abo-Service 10/86 Von meinem Widerspruchsrecht habe ich Kenntnis genommen. 
Postfach 1107 
8044 Unterschleißheim Unterschrift 10/86 
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PROGRAMMSERVICE 


Hiermit bestelle ich in Kenntnis Ihrer Verkaufsbedingun- 
gen die Listings dieses Heftes auf 


[] Kassette (20 DM) {| Diskette (30 DM) 


Ich zahle: (Zutreffendes bite ankreuzen!) 
per beigefügten Scheck [] Schein U] 


Gegen Bankabbuchung am Versandtag 
Meine Bank (mit Ortsname) 
Meine Kontonummer 


MeineBanketzalh__ (steht aufjedem Bankauszug) 
Vorname Nachhame Zn 
Str./Nr. PLZZOrt_ 10186 


Verkaufsbedingungen: Lieferung nur gegen Vorkasse oder Bankabbuchung. Keine Nachnahme. 
Umtausch bei Nichtfunktionieren. 


Unterschrift 
Bitte ausschneiden und einsenden an 


SCHNEIDER AKTIV 
KASSETTENSERVICE 10/86 
Postfach 1107 

8044 Unterschleißheim 


44440 DE 
LESER WERBEN LESER 


GEWINNEN SIE EINE COMPUTER- 
UHR! Und zusätzlich eventuell 
noch ein großes Computer-Buch. 
Oder ein Paket Disketten. ODER 
AUCH EINEN COMPUTER — 
ODER EINE DISKETTENSTATION! 
Wie? Sie werben einen Abonnen- 
ten. Dann haben Sie auf jeden Fall 
schon die Computer-Uhr gewon- 
nen. Zusätzlich verlosen wir unter 
allen, die mitmachen, jeden Mo- 
nat vier weitere wertvolle Preise. 
Und alle sechs Monate gibt es ei- 


Der neue Abonnent war bisher 
noch nicht Bezieher dieser Zeit- 
schrift. 

Als Prämie erhalte ich nach Ein- 
gang des Abo-Entgeltes auf jeden 
Fall eine Computer-Uhr, wie abge- 
bildet, und nehme zusätzlich noch 
an der Verlosung des Monats so- 
wie der halbjährlichen Hauptprei- 
se teil. Mir ist bekannt, daß der 
Rechtsweg ausgeschlossen ist. 
Meinen Preis senden Sie an 


nen Hauptpreis unter allen Abo- Herrn/Frau Name 

Werbern zu gewinnen. Also: Mit- 

machen. Mitgewinnen. Straße/Hausnr. Straße /Hsnr. 
PLZ/Ort 0 PLZ/Ort 


, 2 £ (Bitte ausschneiden und zusam- 
Ja, ich mache mit beim Abo- als neuen Abonnenten von men mit der Abo-Bestellkarte links 
Wettbewerb. Ich habe SCHNEIDER AKTIV geworben. einsenden!) 10/86 
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VERDIENEN SIE GELD 
MITIHREM COMPUTER! 


Haben Sie einen CPC 464 oder 6642? Einen 61282? Oder 
einen JOYCE? Können Sie programmieren? In Basic oder 
Maschinensprache? Dann bietet SCHNEIDER AKTIV 
Ihnen die Möglichkeit, mit diesem Hobby Geld zu verdie- 
nen! 


Wie? Ganz einfach. Sie senden uns die Programme, 
die Sie für einen Abdruck als geeignet halten, zusammen 
mit einer Kurzbeschreibung, aus der auch die verwende- 
te Hardware — eventuelle Erweiterungen — benutzte Pe- 
ripherie — hervorgehen muß, ein. 


Benötigt werden: eine Datenkassette oder Diskette! 
Wenn die Redaktion sich überzeugt hat, daß dieses Pro- 
gramm läuft und sich zum Abdruck eignet, zahlen wir 
Ihnen pro Programm je nach Umfang bis zu DM 300, —! 


Name des Einsenders: 
Straße /Hausnr. /Tel.: 
PLZ/Ort: 


Für das ‚Listing des Monats‘‘ sogar DM 1.000,‘'—. 
Sie erhalten Ihre Kassette /Diskette selbstverständlich 

zurück, wenn Sie einen ausreichend frankierten 

Rückumschlag mit Ihrer Adresse beifügen. 


Bei der Einsendung müssen Sie mit Ihrer Unterschrift ga- 
rantieren, daß Sie der alleine Inhaber der Urheber-Rechte 
sind! Benutzen Sie bitte anhängendes Formular! (Wir 
weisen darauf hin, daß auch die Redaktion englische 
Fachzeitschriften liest und ‚‚umgestaltete‘‘ Programme 
ziemlich schnell erkennt). 


Um Ihnen die Arbeit zu erleichtern, finden $ie hier ein 
Formular. Sie können es ausschneiden oder fotokopie- 
ren. 


Hiermit biete ich Ihnen zum Abdruck folgende(s) Programm(e) an: 


Benötigte Geräte: 


Kassette [_] Diskette 


Beigefügt [_] Listings 


Ich versichere, der alleinige Urheber des Programms zu sein! 
Hiermit ermächtige ich die Redaktion, dieses Programm abzudrucken und wirtschaftlich zu verwerten. Sollte es in 
den Kassetten-Service aufgenommen werden, erhalte ich auch dafür eine entsprechende Vergütung. Das Copyright 


geht an den Verlag über. 


Rechtsverbindliche Unterschrift 
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AKTIV 


Postfach 1107 
8044 Lohhof 
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TEST 


MIDI-TRACK- 
PERFORMER-DIE 
TONBAND-SIMULATION 


Was die Benutzer von 
Schneider CPC Compu- 
tern lange erhofften, ist 
nun Wirklichkeit. 


Durch das neu entwickel- 
te, qualitativ hochwertige 
EMR-Midi-Interface ist 
es möglich geworden, 
Synthesizer und andere 
Musikgeräte mit dem 
Schneider CPC zu kop- 
peln. 

Das erste Programm aus. 
der Reihe der EMR-Midi- 
Software ist der “Midi- 
track Performer“. Es si- 
muliert ein 8-Spur-Ton- 
bandgerät mit der Mög- 
lichkeit, jede Spur einzeln 
zu bespielen und zu be- 
arbeiten. 


Die markantesten Eigen- 
schaften des Miditrack 
Performers sind: 


— Großer Speicher: 
32348 Events 

— Transponieren jeder 
einzelnen Spur um 
+ 12 Halbtöne 

— “Auto note correct“: 
die Zeiten von Noten 
gleicher Anschlagsdau- 
er können nachträglich 
angeglichen werden. 

— Das Tempo der Gesamt- 
wiedergabe kann, auch 
während des Abspielens, 
nahezu beliebig ver- 
ändert werden. 

— Das Ausgeben eines 
Metronoms auf das 
Midi-Gerät 


“= EMR MIDITRACK PERFORMER * * | 


e.to EMR’s Miditrack Perf 


this-is 


themost ady 


- MIDI recording system for 


— Abspeichern und Ein- 
laden von Musikdaten 
auf Diskette 

— Ideal für Bühnenauftrit- 
te, da sehr einfache und 
schnelle Bedienung. 

Dem Programm liegt eine 

ausführliche Bedienungs- 

anleitung bei, in der alle 

Möglichkeiten detailliert 

beschrieben sind. 


Ein Traum wird wahr — 


MIDI für den CPC ‚ 


Hinsichtlich MIDI-An- 
wendungen wurden die 
Schneider-User immer 
etwas stiefmütterlich be- 
handelt. Dabei ist der 
mit 4 MHz getaktete 

Z 80, das Herzstück aller 
Schneider-Computer, ge- 
radezu prädestiniert für 
solche komplexen Steu- 
ervorgänge. 

Um so erfreulicher ist die 
Tatsache, daß die engli- 
sche Firma Electronic- 
music Research, kurz 
EMR genannt, ein MIDI- 
Interface mit entspre- 
chender Software ent- 
wickelt hat. 

Bereits auf der Amstrad- 
Messe war EMR sehr er- 
folgreich vertreten, und 
ab sofort sind deren Pro- 
dukte auch in Deutsch- 
land erhältlich. 

Die Firma Music & 


Computer in Andernach 
hat uns freundlicherwei- 
se ein Exemplar für ei- 
nen Test zur Verfügung 
gestellt, den wir unseren 
Lesern nicht länger vor- 
enthalten wollen. 

Das EMR-MIDI-System 
besteht aus 2 Teilen, 
dem Interface und dem 
MIDITRACK-Performer, 
einem digitalen 8-Kanal- 
Recorder. 

Nachdem wir das Inter- 
face bei ausgeschaltetem 
Computer aufgesteckt 
haben, erleben wir beim 
Auspacken der Software 
die erste positive Über- 
raschung. Das Programm, 
das übrigens auf allen 
CPC’s lauffähig ist, wird 
gleichzeitig auf Kassette 
und Diskette geliefert. 
Beim Aufrüsten des 464 
durch ein Laufwerk, oder 
beim Wechsel zu einem 
Modell mit eingebauter 
Floppy, kann der Anwen- 
der die Annehmlichkei- 


. ten der Arbeit mit einer 


Diskettenstation nutzen, 
ohne das Programm noch- 
mal kaufen zu müssen. 
Nach dem Laden des 
MIDITRACK-Performers. 
sehen wir einen sauber 
gestalteten Bildschirm 
mit sogenannten Icons 
(Symbole, die eine be- 
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| akta/ 


stimmte Funktion verkör- 
pern und durch Anwäh- 
len mit Joystick oder 
Tastatur aufgerufen wer- 
den). Überhaupt stellt 
sich beim Arbeiten mit 
dem Programm heraus, 
daß es sehr einfach zu be- 
dienen ist. Hier gibt es 
keine Verzweigungen von 
Menüs in Untermenüs — 
alles ist klar und über- 
sichtlich auf die Bedürf- 
nisse des Anwenders zu- 
geschnitten und macht 
das Bedienen eines solch 
komplexen, nicht kompli- 
zierten Programmes zur 
Freude. Im übrigen ist 
noch eine, in leicht ver- 
ständlichem Englisch ab- 
gefaßte, Anleitung beige- 
legt, die jede einzelne 
Funktion genau erklärt, 
was hier im Rahmen die- 
ses Bericht aus verständ- 
lichen Gründen nicht 
möglich ist. 


Das gefiel uns besonders: 


8 polyphone Spuren 
Mischpultfunktion (jede 
Spur kann einzeln abge- 
hört werden, mit sepa- 
rater Lautstärkerege- 
lung) 

Interne und externe 
Steuerung durch Sequen- 
zer und Drumcomputer 
Autocorrect, Punch in, 
Editiermöglichkeit 
Merge (bis zu sieben 
Spuren können zusam- 
mengefaßt und auf die 
freie achte gelegt wer- 
den, so daß weitere sie- 
ben Spuren zur Verfü- 
gung stehen) 

Text (Hinweise, z.B. 
über die Kanalverteilung 
der einzelnen Sounds, 
können mit dem jeweili- 
gen Musikstück abge- 
speichert werden) 
Einige Musikdemos wer- 
den mitgeliefert 


Fazit: 


Zum Preis von 498,— DM 
erhält man ein komplet- 
tes, digitales Aufnahme- 
system, das jede Mark 
wert ist, zumal eine ana- 
loge 8-Kanal-Bandma- 
schine mehr als das Zwan- 
zigfache kostet und nicht 
annähernd die Möglich- 
keiten des EMR-MIDI- 
Systems besitzt. HS 


|Schneidery/ 
akt 


REPORT 


MÜNCHEN: ELEKTRONIK- 


BÖRSE Nr. 


Zum vierten Mal findet 
in München, am Sonntag, 
2. November, von 10.00 
bis 19.00 Uhr, im Fest- 
saal des “Schwabinger 
Bräu‘“ an der Münchener 
Freiheit, Leopoldstraße 
82, Eingang Feilitzsch- 
straße, die Münchener 
Elektronik-Messe 

statt. 

Tips und Tricks für Ein- 
stieg und Erweiterung ge- 


A 


ben wieder die Vertreter 
der Computer-Clubs und 
Firmen an ihren Info- 
Ständen. An den zahlrei- 
chen Verkaufsständen 

der privaten Anbieter gibt 
es sicherlich wieder manch 
günstiges, gebrauchtes Ge- 
rät des Büro- und Freizeit- 
Elektronikbereichs zu 
ergattern. 

Nähere Information und 
Standreservierung sind 


möglich unter den Ruf- 
nummern 089/6519030 
oder 1495190. Die Stand- 
gebühr für einen Tisch 
(160x70 cm, inkl. Strom- 
Blockversorgung) beträgt 
unverändert DM 30,— 

für Privatleute und DM 
90,— für Firmen-Info- 
Stände. (Kleinere oder 
größere Tische sind eben- 
falls zu haben.) 
Besucher-Eintritt: 3,— DM 


NOBODY IS PERFECT 


Beim Listing MATHE 
MIT DEM CPC in Heft 
7/86, Seite 38, ist uns 


leider ein Fehler unter- 
laufen. Es fehlten die 
Zeilen 3400 — 3490: 


Weiter mit Tastendruck...”:CALL &BB1B 


3410 MODE 1:PRINT ” 


Moechten Sie zurueck ins Menue (M) 
oder neue Aufgaben (A) 
oder Programmende (CE) ?” 


3420 w$=INKEYS: IF w$="”” GOTO 3420 

3430 IF w$5="M” OR w$="m” THEN RUN 640 
3440 IF w$="E” OR w$="e” THEN GOTO 3540 
3450 IF w&$="A” DR w$="a” THEN RETURN 
3460 GOTOD 3410 

3470 REM Variablen bestimmen 

3480 RANDOMIZE TIME:oplCi)=INTC10°C0O.5*j 


I*RNDE1II:op2Ci)=INTC10”CO.5*J)I*RNDCI)) 
3490 x=RNDC1):IF x<0.25 THEN op$(i)="”-” 
ELSE IF x?>=0.25 AND x<0.5 THEN op$Ci)="/ 
” ELSE IF x>=0.5 AND x<0.75 THEN op$(i)- 
"+ ELSE OPSCII="#" 


GSX- 
LITERATUR 


Da die Schneider-Rech- 
ner CPC6128 und 
JOYCE mit GSX-Soft- 
ware geliefert werden, be- 
steht vor allem bei Be- 
sitzern dieser Rechner 
wachsende Nachfrage 
nach ausführlicher Lite- 
ratur über diese System- 
software. 

Die englischsprachige 

GSX-Literatur von Digital 

Research besteht aus 

— GSX-80 User’s Guide 
(Benutzerhandbuch) 

— GSX Programmer’s 
Guide 
(Programmierhand- 
buch) 

Das Paket hat einen emp- 

fohlenden Verkaufspreis 

von DM 148,— und ist 
bei den Schneider-Ver- 
tragshändlern erhältlich. 
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EINEN DRUCKER 
AN ZWEI 
COMPUTER 


ANSCHLIESSEN 


Der Schnittstellenverviel- 
facher 2C/C/0O ermög- 
licht, einen Drucker mit 
Centronics-Eingang gleich- 
zeitig an zwei Computer 
mit Centronics-Ausgang 
anzuschließen. Die Um- 
schaltung erfolgt automa- 
tisch, es ist keinerlei Be- 
dienung öder Software 
dafür erforderlich: Nach 
dem Einschalten sind 
beide Computer freige- 
geben. Derjenige Compu- 
ter, der zuerst ein Zei- 
chen an den Drucker sen- 
det, blockiert den ande- 
ren Computer. Sobald 
der erste Computer eini- 
ge Sekunden lang nichts 
mehr gedruckt hat, wer- 
den wieder beide freige- 
geben und der Computer, 
der dann wieder zuerst 
sendet, erhält Zugang 
zum Drucker. 

Die Stromversorgung er- 
folgt normalerweise vom 


angeschlossenen Drucker 
(Pin 18 der Centroncs- 
Schnittstelle). 
Als Option ist ein separa- 
tes Steckernetzteil liefer- 
abr. 
Der Preis beträgt 
248,— DM 

( Wiesemann Mikrocomputer- 

technik) 


Ä 


REPORT 
akt? 


MULTI- 


FUNKTIONAR 


Die meisten Hersteller 
von Home- und Personal- 
computern geben sich 
beim Design besondere 
Mühe. So ist es eigentlich 
bedauerlich, daß viele die- 
ser Geräte zum Schutz 
gegen Staub und Beschä- 
digung unter einer häß- 
lichen Haube “versteckt‘“ 
werden. Mancher Anwen- 
der verzichtet darum lie- 
ber auf den Schutz und 
läßt sein wertvolles Ge- 
rät — trotz aller Gefahr — 
ohne Haube. 


ser erleichtert das Abtip- 
pen von Texten und Pro- 
grammen. Die 350 g 
schwere Haube aus bruch- 
festem Kunststoff ist 
transparent; der Compu- 
ter bleibt sichbar. Ein 
leichtes Azurblau gibt 
dem Coverstar ein elegan- 
tes Aussehen. 

Für den Anwender ist es 
sehr zweckmäßig, daß 
Diskettenablage, Papier- 
halter und Schreibpult 
mit in die Abdeckhaube 
integriert sind; sein 


Die Abdeckhaube gibt es auch für Schneider-Computer 


Gutes Aussehen mit viel- 
seitigem Nutzen verbin- 
det die neue Abdeckhau- 
be Coverstar, die Lindy 
jetzt für den Atari 520ST 
anbietet. Diese multifunk- 
tionale Abdeckung er- 
füllt zusätzlich die Auf- 
gabe von drei weiteren 
Computer-Zubehörteilen. 
Sie ist Schreibpult mit ei- 
nem großen und einem 
kleineren Utensilienfach, 
enthält ein Ablegefach 
mit einem Deckel, in dem 
Disketten sicher und staub- 
geschützt aufbewahrt wer- 
den können und hat ei- 
nen angebauten, schwenk- 
baren Vorlagenhalter. Die- 


Schreibtisch bleibt über- 
sichtlich. Außerdem ist 
diese Lösung sogar preis- 
werter als die Anschaf- 
fung der vier Einzelgeräte. 
Eine ähnliche Haube soll 
demnächst auch für den 

C 128 angeboten wer- 
den. Multifunktionale Ab- 
deckhauben, jedoch ohne 
Papierhalter, gibt es be- 
reits für den C 64 sowie 
die Schneider-Computer 
CPC464 und CPC6128. 
Vertrieben werden die 
Hauben — wie alle Lindy- 
Produkte — über Fach- 
handel, Computer-Shops 
und Fachabteilungen 

von Kaufhäusern. 


ZWEIT- 
LAUFWERK 


KAWON ZWEITLAUF- 
WERK IM 3”-FORMAT 
Es ist 100%ig kompatibel 
zum SCHNEIDER FD-I 
und läßt sich wie sein 
Vorbild problemlos an 
CPC 464, 664, 6128 und 
VORTEX FI-S und 


NEUES FÜR DEN 
JOYCE 


Programmier-Sprachen 


F1-D anschließen. 

Preis DM 298, — 

(DM 348 ,— für den CPC 
6128) 

Für CPC 664 und 6128 
benötigt man ein zusätz- 
liches Anschlußkabel 
(DM 48, ,—). 


COBOL Nevada Cobol Compiler DM 189,— 
PASCAL Pascal MT+ Compiler (DR) DM 174,— 
BASIC CBASIC Compiler (DR) DM 174,— 
FORTRAN Nevada Fortran Compiler DM 189,- 
C HiSoft C Compiler DM 189,— 
Geschäfts-Programme 
CRACKER Tabellenkalkulation mit 

Grafik-Ausgabe DM 198,— 
DR GRAPH Geschäftsgrafik DM 199,50 
LOCO15 Ausgabe von LocoScript-Texten 

auf Typenraddrucker SD15 DM 59,— 
Lern-Programme 
VOKABELTRAINER - DM 59,— 
Statistik 
PAD+ Programm zur Auswertung Daten DM 148,— 
Hardware 
SD15 Typenraddrucker 

(Ausgabe von LocoScript-Texten 

über LOCOI15) DM 698,— 
Literatur 
D105 GSX-Handbuch (Original- 

Literatur von Digital Research, 

englisch) DM 148,— 
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DAS 


LISTING 


PROGRAMIMI- 


DAS 
IHRE 


ETIKETTEN 
BEDRUCKT 


TICKET-PRINTER 


Wollten Sie nicht auch 


schon einmal für Ihr Büro 
oder auch einfach nur für. 
den Privatgebrauch Eti- 
ketten drucken? Dann 
haben Sie auch sicherlich 
festgestellt, daß die im 
Handel erhältlichen Pro- 
gramme wie Datamat 
ziemlich teuer sind. 
Deshalb hat SCHNEIDER- 
aktiv dieses Programm ab- 
gedruckt, das es Ihnen er- 
möglicht, ab sofort Ihre 
persönlichen Etiketten 

zu drucken. Es wurde auf 
dem CPC 464, DD1 und 
dem neuen Schneider 
Drucker DMP 2000 ent- 
wickelt. 


Folgendes ist zu beachten: 

1. Schließen Sie den Druk- 
ker vor dem Starten 
des Programms an. 

2. Schalten Sie den Druk- 
ker erst auf ON LINE, 
wenn Ihnen das Pro- 
gramm dieses angibt! 

3. Verwenden Sie bitte nur 
einreihige Endlos-Eti- 
ketten (Länge: 3,5 cm/ 
Breite: 8 cm). 

4. Beachten Sie, daß Sie 
“nur“ 7 Zeilen mit je 
26 Zeichen zur Verfü- 
gung haben. 


Ansonsten bekommen Sie 
alle übrigen Anweisungen 
vom Programm. Natürlich 
werden die Etiketten im 
NLQ-Verfahren gedruckt. 
Sascha Basler 


ITS e RTL LE LEE LE LS 2 2 2 2 2 2 a 2 2 2 2 2 m 


x 
x 
x 
x 
* 
x 
x 
x 
x 
x 


10 

20 ’x* 

30 ’%* TICKET-PRINTER 
40 ’% <c> 1986 

50 ’* by 

60 ’%* S. Basler 

65 ’%* 

66 ’* exklusiv für SCHNEIDER-aktiv 
67 ’%* 

70 ’x (Für DMP 2000) 
80 IEKKKKKKKKKKKKKKKIK III KIKI K X 
90 CLS 

100 GOSUB 1130 

110 ’'=z==2=2=2=2=2=2=2=2=2=2==== 

120 ’BILDSCHIRMAUFBAU 

130 "=s=3222=22233232==232 

140 BORDER 27 

150 MODE 1 

160 WINDOW#1,1,40,1,3 

170 PAPER#1,1:PEN#1,0:CLS#1 
180 


LOCATE#1,6,2:PRINT#1,'"TICKET - 


"P 
190 
200 
210 
220 
230 
240 
250 
260 
270 


280 
290 
300 


R 
W 


INTER" 
INDOW#2,27,40,4,22 


PAPER#2,7:CLS#2:PEN#2,1 


W 


INDOW#3,1,26,14,22 


PAPER #3,4:CLS#3 


W 


INDOW#0,1,26,4,13 


PAPER #0,6:CLS#0 


W 


INDOW#4,1,40,23,25 


PAPER#4,1:PEN#4,0:CLS#4 
LOCATE #4,11,2:PRINT#4,CHR$(164)" 19 


.86 by S. Basler" 


ORIGIN 10,55 

DRAW 395,0,1 

DRAW 395,130 

DRAW 0,130 

DRAW 0,0 

LOCATE #2,1,3:PRINT#2,"SONDERZEICHEN 


LOCATE #2,1,6:PRINT#2,"ß=Pfundzeiche 


LOCATE#2,1,8:PRINT#2,"ö=senk. Balken 


"L 


LOCATE #2,1,10:PRINT#2,"Ö=Querbalken 
LOCATE #2,1,12:PRINT#2,"ä=Klammerauf 
LOCATE #2,1,14:PRINT#2,"A=Klammerauf 
LOCATE #2,1,16:PRINT#2,"ü=Klammerzu 
LOCATE #2,1,18:PRINT#2,"U=Klammerzu" 
Ie==2=222 2222222223552 222222222 2scshshse 
’Diverse Eingaben 
Ile==2=2=2=2=22=2222 2222 ISIS SSSSISSZISSISSSCSCS 
PEN 7 

LOCATE 5,4 

PRINT"Stelle Drucker auf" 

OCATE 10,7 

PRINT"ON LINE !" 

PRINT#8,CHR$(7) 
PRINT#8,CHR$(27);"x";CHR$(1); 
CLS 

LOCATE 5,4 

PRINT"Wieviel Etiketten" 

LOCATE 4,7 S 

INPUT; "wollen Sie drucken?",anzahl 
CLS 
LOCATE 6,4 
PRINT"Füllen Sie jetzt" 
LOCATE 6,7 
PRINT"die Etikette aus!" 

Iez222222 2222222222282 55 555222222833 

’ Ausfuellen der Etikette 

VD mm m rn an m m nn m mm m m m nn m 
LOCATE#3,2,2:LINE INPUT#3,a$ 
LOCATE#3,2,3:LINE INPUT#3,b$ 
LOCATE#3,2,4:LINE INPUT#3,c$ 
LOCATE#3,2,5:LINE INPUT#3,d$ 
LOCATE#3,2,6:LINE INPUT#3,e$ 
LOCATE#3,2,7:LINE INPUT#3,f$ 
LOCATE#3,2,8:LINE INPUT#3,g$ 

Vo oo oo oo oo oo oo oo oo oo oo bo m mm | m m mm m mm m m 
’Ruecksprung zu Window 0 

D in un m ms mu En m nn a an m m m m ab m um a a am a in un en an an a a a a a 
CLS 
LOCATE 6,4 


750 
760 
770 
780 
ND e 
ND e 


790 IF eingabe$="J" OR eingabe$="j" GOTO 


810 
800 

RUN 
810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 
920 
930 
940 
950 
960 

970 

980 

990 

1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
AND 
AND 

1110 
N RU 
- 1120 
N CA 


1150 
1160 
1170 
&TC, 
1180 
:’ue 
1190 
ı oe 
1200 
:’ae 
1210 
: ’UE 
1220 
3C:’ 
1230 
66: ’ 
1240 
1250 


LISTING 


PRINT"Sind die Eingaben" 
LOCATE 7,7 

PRINT"korrekt (J/N)?" 
eingabe$=INKEY$:IF eingabe$ (> 


ingabe$ <> "j" AND eingabe$ (> 
GOTO 780 


m. 


ingabe$ <> "n 


WIR A 
"N" A 


IF eingabe$="N" OR eingabe$="n" THEN 


CLS 
LOCATE 3,4 
PRINT"Lege Etiketten ein und" 
LOCATE 5,7 
PRINT"drücke eine Taste!" 
CALL &BB18 
WIDTH 24 
FOR a= 1 TO anzahl 
PRINT#8 
PRINT#8,a$ 
PRINT#8,b$ 
PRINT#8,c$ 
PRINT#8,d$ 
PRINT#8,e$ 
PRINT#8,f$ 
PRINT#8,g8$ 
PRINT#8 


CLS + 

LOCATE 5,4 

PRINT"Wollen Sie weitere " 
LOCATE 2,7 

PRINT"Etiketten drucken (J/N)?" 
eingabe$=INKEY$:IF eingabe$ <> 
eingabe$ <> "j" AND eingabe$ <> 
eingabe$ <> "n" GOTO 1100 

IF eingabe$="J" OR eingabe$="j" THE 
N 


rz® 
"N" 


IF eingabe$="N" OR eingabe$="n" THE 
LL »&0 

Joossoso zoo. oooo.oooos oz. oo... 

’ Deutsche Zeichen 

I ou oo u ou oz | |o mo zo oo mo m m m m m m m m m m m nm 
SYMBOL AFTER 90 

SYMBOL 126,&3C,&66,&66,&7C,&66,&66, 


&60:’SZ 
SYMBOL 


SYMBOL 124,0,&66,0,&3C, &66,&66,&3C 


SYMBOL 123,&6C,0,&78,&C,&7C,&CC,&76 


SYMBOL 93,&66,0,&66,&66,&66,&66,&3C 
SYMBOL 
OE 
SYMBOL 
AE 
KEY DEF 24,1,126 
RETURN 


92,&66,&3C,&66,&66,&66,&66,& 


91,&66,&18,&3C,&66,&7E,&66,& 


125,&0,&66,0,&66,&66,&66,&3E 


akt? 


COMPUTER- 
NOTITZ- 


BUCH 


Ein praktisches Programm 
für alle, die ihr Gedächt- 
nis nicht mit Terminen 
und ähnlichem belasten 
wollen. 

Das “Notizbuch‘“ kann 
auf jeweils einer Disket- 
tenseite bis zu 60 ““Doku- 
mente“ zu je 100 Text- 
zeilen verwalten. Sie kön- 
nen jedem Dokument ei- 
ne Bezeichnung zuordnen, 
die z.B. aus einem Datum 
bestehen kann. So fin- 
den Sie alle Termine eines 
Tages auf Anhieb. Genau- 
sogut können Sie aber ein 
Stichwort verwenden, 
wenn Sie zu einem The- 
ma eine Notiz anfertigen 
wollen. 

Das Programm wird durch 
ein Menü gesteuert, in 
dem Sie mit der Links 
und Rechtspfeiltaste blät- 
tern. COPY wählt den 
Menüpunkt aus, der ge- 
rade in der obersten Bild- 


schirmzeile angezeigt wird. 


Vor dem ersten Doku- 
ment müssen Sie mit dem 
Menüpunkt “Diskette vor- 
bereiten“ eine Datei für 
das Inhaltsverzeichnis 
(INHALT.DAT) anlegen. 
Vorsicht: Wählen Sie die- 
sen Punkt nie, wenn be- 
reits eine Datei existiert, 
da sonst alle bisher einge- 
tragenen Dokumente 
“vergessen‘ werden. 
Bevor Sie ein Dokument 
zur Bearbeitung anmel- 
den, oder wenn Sie die 
Diskette wechseln, müs- 
sen Sie “Diskette anmel- 
den“ wählen, damit das 
aktuelle Inhaltsverzeich- 
nis in den Speicher über- 
nommen wird. 

Erst danach können Sie 
zum Punkt “Dokument 
anmelden‘ übergehen. 
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Geben Sie eine Kurzbe- 
zeichnung für das Doku- 
ment ein. (Etwa 29.2.“ 
für Ihre Termine am 

29. Februar oder “Noti- 

zen“ für einen Notizzet- 

tel.) Existiert ein Doku- 
ment unter diesem Namen 
bereits, so wird es auto- 
matisch von der Disk ein- 
gelesen. Sonst fragt Sie 
das Programm, ob der 

Text neu angemeldet wer- 

den soll. 

Nach der Anmeldung kön- 

nen Sie zum Punkt “Do- 

kument bearbeiten“ über- 
gehen. Dies ist ein Mini- 

Texteditor, der Ihnen fol- 

gende Möglichkeiten bie- 

tet: 

1. Cursorsteuerung: 

Mit den Pfeiltasten 
und ENTER.DEL und 
CLR funktionieren 
nicht! 

2. Zeile löschen: 

“ CTRL-L löscht die Zei- 
le, in der der Cursor 
(blinkendes Schach- 
brettmuster) gerade 
steht. Löschen Sie bitte 
nie die unterste (100.) 
Zeile eines Textes! 

3. Dokument drucken: 
CTRL-D gibt das ge- 
samte Dokument auf 
dem Drucker aus. 

4. Eingabe beenden: 
CTRL-C kehrt zum 
Menü zurück. 

5. Tippen: 

Wie gewohnt. 


Nach dem Druck auf 
CTRL-C sollten Sie so- 
fort “Dokument spei- 
chern‘‘ wählen. Wenn Sie 
das vergessen, bleibt nur 
die alte (nicht überarbei- 


Bitte lesen Sie weiter 
auf Seite 57 
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160 7111 IYIIYITIYTIITIITITIIIIIII II IIH 

170 Hauptprogramm : 

180 TITTIYTIIYIIIIIIIIITII III III III IH 

190 ’ 

200 ’Steuerung 

210 GOSUB 340:GOSUB 390 

220 WHILE NOT ende 

230 PRINT#1:PRINT#1,"Moment bitte...";:d 


ummy=FRE("") 

240 GOSUB 490:GOSUB 530 

250 GOSUB 610:IF fehler THEN PRINT#2:PRI 

NT#2,fehler$; :WHILE INKEY$="":WEND:GOTO 

240 a 

260 PRINT#1,CHR$(7);"in Arbeit";:ON wahl 

GOSUB 660,780,1070,1100,1220,1260,1290 

270 WEND 

280 MODE 2:END 

290 ’ 

300 

310 

320 

330 

340 ’Titelbild 

350 INK 0,0:PAPER 0:INK 1,15:INK 2,6:INK 

3,11:BORDER 0:MODE 1 

360 PEN 1:FOR ii=1 TO 11:LOCATE ii,ii:PR 

INT"CPC-Notizbuch":LOCATE ii,ii:PRINT" 
":NEXT ii:LOCATE ii,ii:PRINT" 

CPC-Notizbuch" 

370 PEN 2:LOCATE 1,22:PRINT"(c) 1986 by 

BIG BUG":PEN 3:LOCATE 1,25:PRINT"Start m 


2YYTYIYTTTITITTTIIITITTIITTTIITTHHH 


Unterprogramme 
2YTYIYIIYIYITTTIIITTTIITTTTITT III IT HHH 


’ 


it bel. Taste"; 

380 WHILE INKEY$="":WEND:RETURN 

390 ’Systenstart ; 

400 OPENOUT"dummy" :MEMORY HIMEM-1:CGLOSEO 
UT 

410 INK 0,0:PAPER 0:INK 1,21:PEN 1:BORDE 
R 0:MODE 2 

420 WINDOW #0,1,80,2,24:WINDÖW #1,1,80,1 


-,1:WINDOW #2,1,80,25,25 

430 FOR ii=1 TO 2:PEN #ii,0:PAPER #ii,l: 
CLS #ii:NEXT ii 

440 DIM text$(100):FOR ii=1 TO 100:text$ 
(ii)=SPACE$(80) :NEXT ii 

450 xx=1:yy=1:oben=1:ende=0 

460 DIM datei$(60):FOR ii=1 TO 60:datei$ 
(ii)=SPACE$(20):NEXT ii:angemeldet=O:ein 
traege=0 

470 DIM menu$(7):FOR ii=1 TO 7:menu$(ii) 
=SPACE$ (50) :READ a$:MID$(menu$(ii),1)=a$ 
ıNEXT ii 


480 wahl=1:doku$="":gespeichert=0:RETURN 
490 ’Statusanzeige 

500 CLS#2:IF doku$="" THEN PRINT#2,"Kein 
Dokument angemeldet. "; ELSE PRINT#2," 


". 


Dokument ";doku$;" in Arbeit. & 

510 PRINT#2,"Diskettenablage existiert"; 
:IF gespeichert THEN PRINT#2,"."; ELSE P 
RINT#2," nicht."; 

520 RETURN 

530 ’Menuewahl 

540 PRINT#1:PRINT#1,menu$(wahl); 

550 t$=INKEY$:IF t$="" THEN 550 

560 IF t$=CHR$(224) THEN 600 

570 IF t$=CHR$(243) THEN wahl=wahl+1:IF 

wahl>7 THEN wahl=1 


LISTING 


580 IF t$=CHR$(242) THEN wahl=wahl-1:IF 
wahl<1 THEN wahl=7 

590 GOTO 540 

600 RETURN 

610 ’Fehlerkontrolle 

620 fehler=0 

630 IF (wahl=2 OR wahl=6) AND doku$="" 
HEN fehler=-1:fehler$=CHR$(7)+"Dokument 


T 


nicht angemeldet."+CHR$(7): RETURN 
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640 IF (wahl=1 OR wahl=2 OR wahl=4 OR wa 

hl1=26) AND NOT angemeldet THEN fehler=-1: 
fehler$=CHR$(7)+"Diskette nicht angemeld 
et."+CHR$(7) :RETURN 

650 RETURN 

660 ’Dokument anmelden 

670 xx=1:yy=1:oben=1:gespeichert=0 

680 PRINT#1:INPUT#1,"Name des Dokuments: 
"‚doku$:gefunden=0:IF eintraege=0 THEN 
720 

690 FOR ii=1 TO eintraege:IF LEFT$(datei 
$(ii),LEN(doku$) )=doku$ THEN gefunden=ii 
:gespeichert=-1 

700 NEXT ii:IF gefunden THEN file$="DOK" 
+MID$(STR$ (gefunden) ,2)+".TXT":GOTO 760 
710 IF eintraege=60 THEN doku$="":RETURN 
720 PRINT#1:PRINT#1,doku$;" neu anmelden 
"s:INPUT#1,"";Jjn$:jn$=UPPER$(LEFT$(,jn$,1 
)):IF jn$="N" THEN doku$="":RETURN 

730 eintraege=zeintraege+t1:MID$(datei$(ei 

ntraege) ,1)=doku$:file$="DOK"+MID$(STR$( 
eintraege) ,2)+".TXT" 

740 OPENOUT"INHALT,DAT": PRINT#9,eintraeg 

e:FOR ii=1 TO 60:PRINT#9,datei$(ii):NEXT 
ii :CLOSEOUT 

750 FOR ii=1 TO 100:MID$(text$(ii),1)=SP 

ACE$(80) :NEXT ii:RETURN 

760 OPENIN file$:FOR ii=1 TO 100:LINE IN 

PUT #9,a$:MID$(text$(ii),1)=a$:NEXT ii:C 
LOSEIN 

770 RETURN 

780 ’Dokument bearbeiten 

790 CLS:gespeichert=0 

800 FOR ii=oben TO obent+t22 

810 IF ii<=100 THEN LOCATE 1,ii-oben#+1:P 

RINT text$(ii); 

820 NEXT ii 

830 LOCATE xx,yy:PRINT CHR$(127); 

840 t$=INKEY$:LOCATE xx,yy:PRINT MID$(te 

xt$(oben+tyy-1),xx,1); 

850 IF t$="" THEN 830 

860 IF t$=CHR$(12) THEN FOR ii=sobentyy-=-1 
TO 99:MID$(text$(ii),1)=MID$(text$(ii+l 
),1):NEXT ii:GOTO 800 

870 IF t$=CHR$(240) THEN 940 

880 IF t$=CHR$(241) THEN 970 

890 IF t$=CHR$(243) THEN 1000 

900 IF t$=CHR$(242) THEN 1020 

910 IF t$=CHR$(13) THEN xx=1:GOTO 970 
920 IF t$=CHR$(4) THEN 1040 

930 IF t$=CHR$(3) THEN 1060 ELSE MID$(te 
xt$(oben+tyy-1),xx,1)=t$:LOCATE xx,yy:PRI 
NT t$;:GOTO 1000 

940 yy=yy-1:IF yy>=1 THEN 840 

950 IF oben=1 THEN yy=1:GOTO 840 

960 oben=oben-1:yy=1:LOCATE 1,1:PRINT CH 
R$(11);CHR$(11);:LOCATE 1,1:PRINT text$( 


LISTING 


oben); :GOTO 840 

970 yy=yy+1:IF yy<=23 THEN 840 

980 IF oben+22>=100 THEN yy=23:GOTO 840 
990 oben=oben+1:yy=23:LOCATE 1,23:PRINT: 
PRINT:LOCATE 1,23:PRINT text$(oben#+#22);: 
GOTO 840 

1000 xx=xx+1:IF xx<=80 THEN 840 

1010 xx=1:GOTO 970 

1020 xx=xx-1:IF xx>=1 THEN 840 

1030 xx=80:GOTO 940 

1040 letzte=100:WHILE text$(letzte)=SPAC 
E$(80):letzte=letzte-1:WEND 

1050 FOR ii=1 TO letzte:PRINT#8,text$(ii 
):NEXT ii:GOTO 840 

1060 RETURN 

1070 ’Diskette vorbereiten 

1080 angemeldet=-l:eintraege=0:FOR ii=1 
TO 60:datei$(ii)=SPACE$(20):NEXT ii 

1090 OPENOUT"INHALT.DAT":PRINT#9,eintrae 
ge:FOR ii=1 TO 60:PRINT#9,datei$(ii):NEX 
T ii:CLOSEOUT: RETURN 

1100 ’Dokument loeschen 

1110 IF eintraege=0 THEN RETURN 

1120 FOR ii=1 TO eintraege:PRINT#1:PRINT 
#1,datei$(ii); 

1130 t$=UPPER$(INKEY$):IF t$="" 
0 

1140 IF t$<>"L" THEN 1210 

1150 filel1$="DOK"+MID$(STR$(ii),2)+".TXT 
":uUERA,äafilel$ 

1160 FOR jj=ii TO 59:MID$(datei$(jj),1)= 
MID$(datei$(jj+1),1):filel$="DOK"+MID$(S 
TR$(53),»2)+".TXT":file2$="DOK"+MID$ (STR$ 
(3)+t1),2)+".TXT":IF jj<eintraege THEN üR 
EN,afilel$,afile2$ 

1170 IF jj=gefunden THEN file$=filel$ 
1180 NEXT jJj:eintraege=seintraege-l 

1190 OPENOUT" INHALT.DAT":PRINT#9,eintrae 
ge:FOR ii=1 TO 60:PRINT#9,datei$(ii):NEX 
T ii:CLOSEOUT 

1200 iiseintraege 

1210 NEXT ii:RETURN 

1220 ’Diskette anmelden 

1230 angemeldet=-1 

1240 OPENIN"INHALT.DAT" : INPUT#9,eintraeg 
e:FOR ii=1 TO 60:INPUT#9,a$:MID$(datei$( 
ii),1)=sa$:NEXT ii:CLOSEIN 

1250 RETURN 

1260 ’Dokument speichern 

1270 OPENOUT file$:FOR ii=1 TO 100:PRINT 
#9,text$(ii):NEXT ii:CLOSEOUT 


THEN 113 


1280 gespeichert=-1:RETURN 

1290 ’Programm beenden 

1300 file$="%.BAK":uERA,äfile$ 

1310 ende=-1:RETURN 

1320 

1330 PIYTTITITITTTITIIT TI TI III TI II II 1 9 9 
1340 ’ Daten : 
1350 II IYIITTTTITTTTITT T TIT TI III III I I 93 
1360 ’ 

1370 ’Menue-Texte 

1380 DATA Dokument anmelden,Dokument bea 


rbeiten,Diskette vorbereiten,Dokument lo 
eschen,Diskette anmelden,Dokument speich 
ern,Programm beenden 


571 


Fortsetzung von Seite 55 


tete) Version auf der Dis- 


kette erhalten. Bei neu 
angemeldeten Dokumen- 
ten kann das später sogar 
zu einem ungewollten 
Programmabbruch führen. 
Sobald Sie einen Text 
nicht mehr benötigen, 
können Sie ihn mit ““Do- 
kument löschen‘ von 

der Diskette entfernen. 
In der oberen Zeile er- 
scheinen der Reihe nach 
alle Textnamen. Ein 
Druck auf L löst den 
Löschvorgang aus, jede 
andere Taste blättert wei- 
ter. Dadurch können Sie 
diese Option auch dazu 
benutzen, sich ein Ge- 
samtverzeichnis aller 
gespeicherten Texte an- 
zusehen. 

Der Punkt “Programm 
beenden“ schafft gleich- 
zeitig durch Löschen al- 
ler Backup-Files Raum 
auf der Diskette. 

In der unteren Bildschirm- 
zeile erscheinen stets 


akt / 


Status-Meldungen, die Ih- 
nen anzeigen, ob ein Text 
zur Bearbeitung angemel- 
det ist und ob eine Siche- 
rungskopie vorliegt. Diese 
Meldung kann nach einem 
Löschvorgang verfälscht 
sein, so daß Sie am besten 
nach jeder Löschung den 
zu bearbeitenden Text 
neu anmelden. Alles 
weitere ergibt sich bei 
der Bedienung des Pro- 
gramms von selbst. 
Beachten Sie bitte, daß 
vom “Notizbuch‘“ der 
Dateiname INHALT.DAT 
sowie die Namen 
DOK1.TXT, DOK2.TXT 
usw. bis DOK60.TXT 
verwendet werden. Es ist 
allerdings ohnehin anzu- 
raten, für die Notizbuch- 
Texte jeweils eine eigene 
Diskettenseite zu verwen- 
den, so daß Sie mit den 
Dateinamen nicht in 
Schwierigkeiten geraten 
werden. 

Alwin Ertl 
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SERIE 


HISOFT-PASCAL 
FÜR JEDERMANN 


Nachdem Sie jetzt be- 
reits die Grundstruktu- 
ren von Pascal kennen, 
können Sie sich mit den 
Ihnen noch unbekannten 
Befehlen und Funktionen, 
leicht mit Hilfe des Hand- 
buchs vertraut machen. 
In diesem letzten Teil un- 
serer Serie sollen Sie ‚‚le- 
diglich‘‘ noch einen Ein- 
blick in die „hohe Kunst 
des Programmierens“ er- 
halten: Es geht um die 
dynamische Datenstruk- 
turen’und — eng damit 
verbunden — um die be- 
reits erwähnte Rekursion. 
Um zu klären, was man 
unter dynamischen Da- 
tenstrukturen versteht, 
sollte man zuerst einmal 
wissen, was das Gegenteil 
davon ist. Das sind die 
statischen Datenstruktu- 
ren, d.h., alle INTEGER-, 
CHAR-, undsoweiter- 
Variablen, aber auch alle 
Arrays, Sets und Records. 
Sie werden von vornher- 
ein festgelegt und bean- 
spruchen den ihnen in 
der Deklaration zugewie- 
senen Speicherplatz, 


egal, was da kommen mag. 


Dynamische Variablen 
hingegen haben, je nach 
Inhalt, immer den Be- 
darf an Speicherplatz, 


den sie gerade benötigen. 
In Pascal gibt es dafür 
einen speziellen Varia- 
blentyp, die POINTER 
oder Zeiger. Sie sind kei- 
ne Variablen im eigent- 
lichen Sinne, sondern 
zeigen auf eine andere 
Variable, d.h., sie enthal- 
ten deren Adresse im 
Speicher. Gekennzeich- 
net werden sie durch ei- 
nen Aufwärtspfeil vor 
dem Typ, auf den sie 
zeigen: 


VAR 

zeiger: TINTEGER 
(sprich: “pointer to in- 
teger‘‘ oder “Zeiger 
auf integer“‘) 


Damit ist der Zeiger aber 
noch nicht definiert! 
Das geschieht durch ei- 
ne Anweisung im Pro- 
gramm(!), welche lautet: 
NEW (Zeiger) 

Dadurch ist eine Varia- 
ble, die sog. Pointer- 
Variable, eingeführt. Sie 
wird als zeigerf bezeich- 
net. Man kann ihr jetzt 
einen Wert zuweisen, 
wie jeder anderen Varia- 
blen auch: 

zeiger 1:=12 

Nun kann man damit 
allein jedoch nicht viel 


anfangen. Der Clou bei 
der Sache besteht darin, 
daß RECORDS Zeiger 
auf sich selbst enthalten 
können. Damit lassen 
sich dann so interessante 
Datenstrukturen wie 

der Binärbaum aufbauen. 
Auf dem hier zur Verfü- 
gung stehenden Platz 
kann auf dieses interes- 
sante Thema natürlich 
nur in der gebotenen Kür- 
ze eingegangen werden; 
wer sich näher informie- 
ren will, der sei auf ent- 
sprechende Literatur ver- 
wiesen (z.B. Niklaus 
Kels). 


Ein Binärbaum geht aus 
von einer Wurzel oder 
einem Knoten, der nor- 
malerweise einen linken 
und einen rechten Ast 
hat. Von jedem Ast ge- 
hen weitere Äste aus, theo- 
retisch bis ins Bodenlose. 
Jeder Knoten stellt einen 
bestimmten Wert dar. Da- 
mit nun im Baum Ord- 
nung herrscht, wird beim 
Anfügen eines neuen Kno- 
tens ein kleinerer Wert je- 
"weil links, ein größerer 
Wert rechts angefügt. Das 
ist so üblich, obwohl man 
es genausogut umgekehrt 
machen könnte. 
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Sie haben sicher schon er- 
raten, daß die Knoten 
oder Verzweigungen des 
Baums durch Pointer 
dargestellt werden. Leere 
Knoten erhalten einen 
Zeiger, der auf nichts 
zeigt. Nach dem lateini- 
schen Wort für “nichts‘“, 
bzw. der englischen Be- 
zeichnung für “Null, 
heißt der Wert eines sol- 
chen Zeigers NIL. 

NIL ist eine in Pascal 
vordefinierte Konstante, 
die nur Pointern zugewie- 
sen werden kann. 

Ein Record, der einen 
Teil eines binären Baumes 
darstellt, enthält sowohl 
den ‘Wert des Knoten“ 
als auch zwei Zeiger auf 
weitere Records — näm- 
lich den links und den 
rechts vom momentanen 
Knotenpunkt. Wenn einer 
dieser Zeiger NIL ist, 
dann geht’s in diese Rich- 
tung nicht mehr weiter. 
Das bedeutet aber dann 
auch gleichzeitig, daß in 
die entsprechende Rich- 
tung ein Ast angefügt 
werden kann. 

Wie ein Baum aussieht, 
der 10 Zahlen geordnet 
enthält, zeigt die folgende 
Skizze. Die Zahlen wur- 
den in der Reihenfolge 
35/12/14/58/44/47/13/ 
15/32/40 eingegeben. 


35 
ee en 3 
a 7 
= 


Sie erkennen, daß der rech- 
te Ast zur 13 und der lin- 
ke Ast zur 15 ewig frei- 
bleiben werden, wenn wir 
nur ganze Zahlen verwen- 
den, da beide Werte von 
der 14 ausgehen. Dazwi- 
schen gibt es keine Zahl 
mehr. Als rechter Ast zur 
40 kommen aber 41, 42 
oder 43 noch in Frage, 
ebenso als linker Ast zur 
47 die Werte 45 oder 46. 
Greifen Sie doch zum 
Bleistift und tragen Sie 
selbst folgende Zahlen ein: 
12/9/10/60/59/65/46. 
Das System ist dabei wie 
folgt: Sie beginnen bei 

der 35, die die ““Wurzel“ 
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des Baumes ist, und fragen 
bei jedem Knoten: größer. 
oder kleiner? Ist die Zahl 
größer als der Wert am 
Knotenpunkt, dann gehen 
Sie nach links weiter, ist 
sie kleiner, dann nach 
rechts. Wenn in die ent- 
sprechende Richtung kein 
Ast führt, können Sie ei- 
nen neuen mit Ihrer Zahl 
anhängen. 

Diese Methode bringt es 
mit sich, daß Binärbäume 
sich, trotz gleichen Inhalts, 
sehr stark im “ Aussehen“ 
unterscheiden Können, ab- 
hängig von der Reihenfol- 
ge der Zahlen bei der Ein- 
gabe. Durch besondere 
Programmiertechniken 
(“balanced binary trees‘‘) 
kann man Bäume jedoch 
ausgleichen. Oben ange- 
führtes Buch von Niklaus 
Wirth sagt mehr darüber. 
Sicher sehen Sie jetzt 
auch, warum in einen 
Binärbaum nie zweimal 
der gleiche Wert eingetra- 
gen werden sollte. Erstens 
könnte an einer Stelle 
keine klare Links/Rechts- 
Entscheidung getroffen 
werden (da z.B. 12 weder 
größer noch kleiner, 
sondern eben gleich 12 
ist), und zweitens könnte 
dieser Wert dann an einem 
Ast kleben, an dem er es 
unmöglich macht, weite- 
re Werte einzutragen. 

Das folgende Programm 
zeigt Ihnen, wie Zahlen 
in einen Binärbaum ge- 
ordnet eingetragen und 
wieder ausgegeben wer- 
den. Beide verwendeten 
Prozeduren sind dabei 
rekursiv. “'neuerast‘ 

ruft sich selbst solange 
auf, bis endlich ein 
Knoten mit einem freien 
Platz gefunden ist. 
“druckebaum‘““ geht so- 
weit zurück, bis der linke 
Ast des untersten “Teil- 
baums‘“ gefunden ist. 
Dann wird dieser Wert 
ausgegeben, gefolgt von 
der Wurzel und dem rech- 
ten Ast des Teilbaums. 
Durch die verschiedenen 
Rekursionsebenen geht 
es dann zurück bis zur 
Wurzel des gesamten 
Baumes, woraufhin sich 
das Spielchen mit dem 
rechten Baum-Abschnitt 
wiederholt. 


SERIE 


PROGRAM dynsort; 


TYPE 
ast = RECORD 
wert : INTEGER 
links, rechts : T ast 
END; OF RECORD 
zeiger = ast; 


VAR 
wurzel : zeiger 
zahl : INTEGER; 


PROCEDURE neuerast (w: INTEGER; VAR z: zeiger); 
BEGIN 
IF z= NIL (neuer Knoten) 
THEN 

BEGIN 
NEW (z); 
z f.links : = NIL; 
z T.rechts : = NIL; 
z t.wert:=w 

END 

ELSE (nächsten Ast hinabwandern) 

BEGIN 

IF w> z T.wert (größere Zahlen rechts) 
THEN 
neuerast (w,z t.rechts); 
IFw< z f.wert (kleinere Zahlen links) 
THEN 
neuerast (w,z t.links) 
END (nichts tun bei gleichem Wert!) 
END; 


PROCEDURE druckebaum (z : zeiger); 
BEGIN 
IFz<>NIL 
THEN 
BEGIN 
druckebaum (z t.links); 
WRITE (z f.wert:5); 
druckebaum (z f.rechts) 
END 
END; 


BEGIN (Hauptprogramm) 
wurzel :=NIL; 
REPEAT 
PAGE; 
WRITE (’Zahl: ‘); 
READLN; READ (zahl); 
neuerast (zahl, wurzel); 
WRITELN; WRITELN (‘Sortiert:‘); 
druckebaum (wurzel); 
WRITELN; WRITELN; 
WRITELN (’Taste bitte...‘); 
USER (#BB06) (KM WAIT CHAR) 
UNTIL zahl = 0 
END. 


59 


akta/ 


Für Leser, die sich weiter 
informieren möchten, ist 
hier diejenige Literatur 
angegeben, die dem Autor 
dieser Serie wertvolle Hil- 
fe beim Erlernen von Pas- 
cal geleistet hat: 

l) Niklaus Wirth, “Algo- 
rithmen und Daten- 
strukturen‘‘, 3. Aufl. 
Stuttgart 1983 — 
sehr informativ, wenn 
bereits Vorkenntnisse 
vorhanden. Für eifrige 
Verfolger dieser Serie 
empfehlenswert. 

2) Dr. Heinz-Erich Erbs 
und Otto Stolz, ‘““Ein- 
führung in die Program- 
mierung mit Pascal“ , 
Stuttgart 1982 — 
recht locker geschrieben; 
als Anfängerwerk oder 
zur Vertiefung von 
Grundkenntnisse sehr 
gut geeignet. 

3) Karl-Heinz Becker und 
Günther Lamprecht, 
“Einföhrung in die Pro- 
grammiersprache 
PASCAL“, Braun- 
schweig 1982 — ein 
Skriptum von Uni-Vor- 
lesungen; zwar laut 
Titel für “Hörer aller 
Fachrichtungen‘, wohl 
aber doch mehr für 
mathematisch Interes- 
sierte. 

Da alle diese Bücher Stan- 

dard- bzw. UCSD-(Uni- 

versity of California, San 

Diego)-Pascal behandeln, 


| sollte das Handbuch zu 


HiSoft-Pascal unbedingt 
parallel dazu studiert 
werden. Wer umfangrei- 
chen Gebrauch von den 
Firmware-Routinen ma- 
chen will, sollte sich auch 
das Schneider-Firmware- 
handbuch besorgen. 
Mit diesen Tips wollen 
wir’s nun aber endgültig 
bewenden lassen. Ich 
wünsche Ihnen weiterhin 
viel Spaß und viel Erfolg 
beim Programmieren. 
Alwin Ertl 


Ankündigung: 

Mit diesem 11. Teil been- 
den wir unsere Einfüh- 
rungsserie in “‘HiSoft- 
Pascal‘. Ab dem nächsten 
Heft beginnt die 10teilige 
Fortsetzungsserie:: 
“HISOFT-PASCAL 

FÜR PROFIS“ 


GLOSSE 
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Speichermedien, der 
Knüller der Peripherie 
oder: Die Daten müssen 
weg, egal wie 


Bevor wir uns wieder in 
die graue Theorie stürzen, 
erst einmal die Auflösung 
des sensationellen Fra- 
gen-Preisausschreibens: 
Der erste Preis ging, und 
da freu’ ich mich ganz be- 
sonders, an ein Mädchen. 
Aufgrund ihres enormen 
Fachwissens, und ein biß- 
chen Glück, gewann Fräu- 
lein Meta Bolid keine 
Speichererweiterung. Die 
Freude war um so größer, 
da sie schon einmal bei 
einem Preisausschreiben 
(Wash und Abfahri) kei- 
nen Computer gewonnen 
hat, und nunmehr end- 
lich komplett ausgestat- 
tet sein könnte. Auf den . 
zweiten Preis darf sich, 
wie üblich, mein Schwa- 
ger freuen. Es sei ihm 
allerdings jetzt schon ge- 
sagt, daß ich mir dafür 
das Weihnachtsgeschenk 
für ihn verkneife. 

Beim dritten Preis, der 
Traumschiffreise mit 
Sascha Hahn, hatten wir 
zu wenig Pech. Der all- 
zu beliebte Darsteller 
wechselte das Fach, und 
statt der erhofften 
Schiffreise in die Kari- 
bik, gewann unser Leser 
Italo Ferrari eine Schön- 
heitsoperation von 
Sascha Hahn in der 
Schwarzwaldklinik. Ob- 
wohl ihn der Verlust sei- 
ner windschnittigen Nase 
seelisch schmerzt, geht 

es ihm schon wieder 
besser. 


ROM IST EINE 
KLEINE PIZZERIA! 


Allen, die falsch lagen, 
offenbare ich hier, die 
richtige Lösung. ROM 
ist nicht etwa irgend- 
etwas elektronisches, 
sondern die kleine Pizze- 
ria in der Bismarckstr. 
mit der hübschen Bedie- 
nung. Tja, und RAM ist 
irgendsoeine englische 
Abkürzung und hat mit 
Computer zu tun. Alles 
klar? 


FW’s: WISSEN 
MUSS MAN ES! 


Nun geht’s los mit dem 
ersten Teil des zweiten, 
aber nicht letzten Teiles, 
des Computerkurses. Heu- 
te dreht sich alles um 
Datenträger. Um den 
Überblick nicht zu verlie- 
ren, wollen wir (wollt 
Ihr?) die Datenträger in 
drei große Gruppen unter- 
teilen. Da wären die 
nichtelektronischen, die 
elektronischen und die 
Sonstigen, die ja immer 
dabei sein müssen, falls 
mir in letzter Minute 
noch was Dummes ein- 
fällt. Nicht elektronische 
sind PAPIER und 
JOHANNES BRATTU- 
SCHEK. Papier, ob einzeln 
oder gebunden, ist nicht 
nur geduldig, wie dieses 
Beispiel hier zeigt, son- 
dern es ist auch der meist- 
verbreitetste Datenträger 


“ der Welt. Weniger Verbrei- 


tung findet Johannes 
Brattuschek, unser Haus- 


nr “u 


Su 
N. 


meister. Die Bezeichnung 
Datenträger verdiente er 
sich in seiner 30jährigen 
Laufbahn als Bürobote. 
Johannes Brattuschek ist 
verheiratet, kinderlos, 
etwas füllig, Ende fünfzig 
und für diesen Kurs gar 
nicht von Bedeutung. 
Wichtiger für den User 
sind die elektronischen 
Speichermedien wie 
Recorder, Floppy, Hard- 
disc, Ganzharddisc und 
CD-Rom. Zu guter Letzt, 
die Gruppe der sonstigen 
Träger, wie Hosenträger, 
Gepäckträger und Lasten- 
träger (Elefanten). 
Daraus resultiert der 
Merksatz: 
Im Hinblick auf den Com- 
uter bestehen zwischen 
Johannes Brattuschek, 
iskettenstationen und 
Elefanten einige Unter- 
schiede, sonst aber nichts. 
Uns interessieren natürlich 
nur die elektronischen 
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Träger, die Speichermedien 
und dabei zuerst einmal 
der Kassettenrecorder. 

Die Besitzer eines CPC 
464 kennen schon lange 
diesen praktischen Aschen- 
becher auf der rechten 
Seite der Konsole. Ihr soll- 
tet ihn schnell entleeren 
(kräftig reinpusten) und 
ihn seiner eigentlichen 
Aufgabe zuführen, der Da- 
tenspeicherung. Bitte 
nehmt eine Kassette zur 
Hand und schiebt sie in 
den geöffneten(!) Schacht. 
Kleine Reibungsschwierig- 
keiten lassen sich mit ei- 
nem Hammer (nicht un- 
ter fünf Pfund) überwin- 
den. Hilft auch der Ham- 
mer nicht, dann handelt 

es sich vielleicht um eine 
Videokassette, Pech ge- 
habt. 


DER SCHNEIDER MAG 


FRIDOLIN NICHT 


Im Idealfall ist der Recor- 
der nun bereit und wir 
wollen versuchen, das in 
der letzten Folge einge- 
tippte Programm endlich 
abzuspeichern. „Endlich“, 
werden viele von Euch 
sagen, die den CPC im 
letzten Monat gerne für 
etwas anderes benutzt 
hätten, oder die ihn ab- 
schalten wollten. Aber 
leider erscheint 
SCHNEIDER-aktiv und 
damit dieser Kurs nur 
monatlich und Bildung 


* geht nun einmal vor. 


Ähnlich wie in der Na- 
tur, wo es auch immer 
(meist im Mai) heißt, 
„Erst die Erzeugung, 
dann der Name‘ müßt Ihr 
nun dem Programm einen 
Namen geben. Fridolin 
wäre da ganz schön, ist 
aber leider falsch. Auch 
wenn das Handbuch zwar 
den Eindruck erweckt, als 
könne man seiner Phan- 
tasie bei der Namensge- 
staltung freien Lauf las- 
sen, es stimmt nicht. 

Ein Versuch soll es bewei- 
sen. Tippt einmal die 
Befehlssequenz zum Ab- 
speichern ein, die da 
lautet: SAVE“FRIDO 
LIN“, halt nein, lieber 
SAVE“ BIBO‘“, denn Fri- 
dolin hatten wir schon, 


GLOSSE 


und BIBO hört sich run- 
der an. Also Eintippen, 
ENTER drücken, ENTER 
wieder loslassen, "und 
schon kommt eine Eigen- 
sinnigkeit des Betriebs- 
systems zutage, die den 
Versuch eines eigenen 
Programmnamens schei- 
tern läßt. 

Zwar verspricht eine Bild- 
schirmmeldung das Ab- 
speichern von “BIBO“, 
eine Zeile darunter 
kommt jedoch die Wahr- 
heit ans Tageslicht. 

Das Programm wird in 
den Standardnamen 
“BLOCK“ umgetauft, 
und als solches abgespei- 
chert. Ganz klar, daß wir 
auf den Beschiß mit 
einem Merksatz reagie- 
ren: 

Die Arbeit der Vergabe 
eines Programmnamens, 
kann man sich beim CPC 
sparen, bei manchen Pro- 
grammen kann man sich 
ee das Speichern 

aren. 

Derartig enttäuscht, wol- 
len wir uns der Diskette 
zuwenden, welche schon 
von den Griechen des 
Altertums als Speicher- 
medium benutzt wurde. 
Der Erfinder der Sache, 
der Hirte Costa Zaziki, 
meisselte in runde Stein- 
scheiben kreisförmige 
Texte ein und bot den 
griechischen Filmschaf- 
fenden die Disketten als 
Drehbücher an. 


Beinahe hätte es geklappt, 


aber leider war der Film 
noch nicht erfunden. 
Wütend warf Zaziki seine 
Disketten weg, und die 
dabei auftretenden her- 
vorragenden Flugeigen- 
schaften ließen die Schei- 


ben, kurz Diskus genannt, 


einen beliebten Sport- 
artikel werden. 
Nebenbei bemerkt: Dar- 
aus leitet sich auch das 
Wort „Diskussion‘‘ ab, 
die immer dann entstand, 
wenn ein Nachbar verse- 
hentlich Ziel des Wurfes 
war. Eine schöne Sitte, 
die zu meinem Bedauern, 
heute nicht mehr üblich 
ist. 

Zurück zur Sache. Eine 
Zeitlang war der Diskus 
als Speichermedium ver- 
loren, bis sich IBM des 


ursprünglichen Versuches 
erinnerte. Es gelang den 
Ingenieuren ein Lesegerät 
zu entwickeln, das die in 
Stein gehauenen Informa- 
tionen dem Computer 
zugänglich machte. Die 
Sache scheiterte aber am 
Abspeichern. Keine Me- 
thode war geeignet, die 
Bits schnell genug einzu- 
meisseln. 


VERDAMMT, PUSTET 
DOCH SELBER REIN! 


Schließlich verband man 


das Prinzip einer Schall- 
platte mit der einer mag- 
netischen Aufzeichnung, 
und die Diskette, wie wir 
sie hier kennen, war ge- 
boren. Zwar gab esauch 
hier Kinderkrankheiten, 
weil die Nadel. des Ton- 


'armes auf dem glatten 


Material rutschte, doch 
mit der Zeit wurde das 
Verfahren perfektioniert, 
indem man auf die Nadel 
verzichtete. 

Heute liegt eine der be- 
sten Speichermedien vor 
uns, dessen Technik ich 
kurz erklären will. 
Moment mal, eben lag sie 
noch vor mir. Eine Ord- 
nung ist das hier! Also, 
dann das nächste Mal. 
Beantwortet noch kurz 
die Fragen, meinetwegen 
auch lang, ich muß es ja 
nicht hören. Bis nächsten 
Monat, wenn Ihr Euch 
wieder fragt: Was will er 
uns eigentlich sagen? 


Zum Speichern eignet 
sich: 
a) der Aschenbecher 
(erst reinpusten) 
b) der Keller, wenn er 
nicht zu feucht ist 
c) Johannes Brattuschek, 
wenn er etwas elektro- 
nischer wäre 


Welcher Satz ist wahr? 

a. Hosenträger gehören 
nur entfernt in die 
Gruppe der Datenträger 

b) Das Preisausschreiben 
war ganz schöner Hum- 
bug, die Postkarte hät- 
te ich sparen können 

c) Disketten wurden eben- 
so wie die ungarischen 
Dampfnudeln im Grie- 

chenland der Antike 

erfunden. (F.W.) 


aktn/ 


FW’s BEANT- 
WORTET LESER 
FRAGEN 


Oli Vetti, Rom, fragt: 

Ich hätte gerne einen 
IBM-kompatiblen Com- 
puter von SCHNEIDER. 
Meine Frage ist nur: War- 
um ausgerechnet IBM, 
und was bedeutet kom- 
patibel? 


F. W. antwortet: 

IBM war ursprünglich nur 
zweite Wahl, zuerst woll- 
te SCHNEIDER einen 
OPEL-kompatiblen Rech- 
ner anbieten, bevor die 
Firma bemerkte, daß es 
sich um eine Automarke 
handelt. Kompatibel 
kann man wohl am besten 
mit Funktionsgleich über- 
setzen, d.h.: Die Soft- 
ware des IBM soll auf dem 
SCHNEIDER PC laufen 
und umgekehrt. Es gibt 
Geräte, die sind so kom- 
patibel, daß man es 
kaum merkt, daß sie es 
nicht sind, und es gibt 
Geräte, die sind es auf 
gar keinen Fall. 


P. Atent, Darmstadt, 
fra 
Ich habe mir eine Vortex 


5 1/4 Zoll-Station gekauft. 


Diesem Format gab ich 
den Vorzug, weil sich die 
Disketten leichter lochen 
und in Aktenordnern ar- 
chivieren lassen. Nun stell- 
te sich heraus, daß die 
Dinger nicht mehr funk- 
tionieren. Wäre die 3-Zoll- 
Station von SCHNEIDER 
nicht besser gewesen? 


F. W. antwortet: 
Hinsichtlich der Zuverläs- 
sigkeit ist mir nichts Ne- 
gatives bekannt. Sie soll- 
ten jedoch sorgfältig ab- 
wägen. Zwar sind 5 1/4- 
Zoll-Disketten trotz siche- 
rer Aufbewahrung in 
Aktenordnern nicht lauf- 
fähig, doch die plastikum- 
hüllten 3-Zoll-Disketten 
sind schwieriger zu lo- 
chen. Da muß dann schon 
ein Bohrer her. 
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F. Flick, z.Zt. Ausland, 
fragt: 

Jetzt, wo sich SCHNEIDER- 
aktiv um die Datenfern- 
übertragung kümmert, 
würde mich doch mal in- 
teressieren, wie so eine 
Datenbank arbeitet. Muß 
ich erst was einzahlen, 
gibt’s Kredit oder wie? 


F. W. antwortet: 

In Sindelfingen wurde die 
erste Datenbank auf Ini- 
tiative des Verfassungs- 
schutzes aufgebaut, die 
wie eine richtige Bank, 
bei der Sie (hoffentlich) 
ein Konto haben, funk- 
tioniert. Wenn Sie etwas 
abheben, also eine Aus- 
kunft haben wollen, müs- 
sen Sie zuerst etwas ein- 
gezahlt haben, also ein 
paar Fragen beantworten. 


T. Andon, Frankfurt, 
fragt: 

Las ich doch neulich in 
einer Zeitung: “PC auf- 
schrauben, 2.795 Mark 
reinstecken, XT zuschrau- 
ben.‘ Mit meinem 
ZENITH COLLEGE PC 
habe ich das auch ge- 
macht. Das Kleingeld 
verursachte einen Kurz- 
schluß und nun stehe ich 
da, weil mein Händler 
nicht umtauschen will. 
Wie erhalte ich ein neues 
Gerät, und wie muß ich 
das Geld reinstecken? 


F. W. antwortet: 

Einen neuen ZENITH 
erhalten Sie folgenderma- 
ßen: ‚Briefumschlag auf- 
machen, 2.995 DM rein-* 
stecken, Briefumschlag 
zumachen und abschik- 
ken: ‘‘ Da Münzen daran 
schuld sind, daß Kurz- 
schlüsse entstehen kön- 
nen, sollten Sie bei Ihrem 
neuen Computer die 
2.795 DM dann in Schei- 
nen hineinstecken, um 
einen XT zu erhalten. 


akt? 


Ich möchte Ihnen mein 
Programm Graphic Genie 
vorstellen. Es ist ein 
Graphikprogramm zu 
dem ein Joystick erfor- 
derlich ist. 

Nach dem Starten er- 
scheint ein Menü mit 

20 Funktionen, die man 
mit Hilfe des Joysticks 
erreichen kann. 

Mit dem Feuerknopf star- 
tet man dann die entspre- 
chende Funktion: 


Malen: 

Nur mit gedrückter Feu- 
ertaste kann gemalt wer- 
den, sonst wird nur die 
Position des Pfeiles 
geändert. 

Linie: 

Man gibt den Anfangs- 
punkt und dann den End- 
punkt der Linie an. 


Linieren: 

Sobald der Anfangspunkt 
angegeben ist, wird die 
Linie weitergeführt. 


Füllen: 

Hier kann eine Fläche 
ausgefüllt werden. Will 
man diese Routine unter- 
brechen, dann ist die 
Feuertaste zu drücken. 


Kreis: 

Erst den Mittelpunkt an- 
geben, und dann den 
Radius. 

Disk: 

Siehe oben — und der 


Kreis wird dann ausge- 
füllt. 


Elypse: 
Erst Mittelpunkt, dann 


x-Wert und dann y-Wert 
angeben. 


Scheibe: 
Siehe oben — und die 
Elypse wird ausgefüllt. 


Dreieck: 

Drei Punkte angeben und 
dann werden sie verbun- 
den. 


Triangel: 
Siehe oben — und das 
Dreieck wird ausgefüllt. 


Box: 

Zwei gegenüberliegende 
Punkte angeben und dann 
wird die Box gezeichnet. 


Rechteck: 

Siehe oben — und die 
Box wird ausgefüllt. 
Sprühen: 

Nach Angeben der Sprüh- 
stärke und des Sprüh- 
radius kann auf dem Bild- 


schirm “gesprüht‘‘ werden. 


Farben: 

Hier kann man die Mal- 
farbe angeben, indem man 
den Joystick links und 
rechts bewegt. Die aktuel- 
le Malfarbe erkennt man 
an der Bildschirmumran- 
dung. Ebenfalls können 
die Farbwerte der entspre- 
chenden Farbe geändert 
werden, indem man den 
Joystick nach oben und 
nach unten bewegt. Mit 
Feuer kann man die Rou- 
tine verlassen. 


Löschen: 
Graphikbildschirm wird 
gelöscht. 

Bitte lesen Sie weiter auf S. 66 


100 


10 ’KKKKKKKKKKKKKKK KK KK KK X 
20 ’x 
30 ’x 
40 ’%x 


x 

GRAPHTIC-GENTIE * 

X 

50 ’x x 
X 

x 


60 ’x (c) 1986 by 

70 ’% Ralf Hopperdietzel 

80 ’* x 
CIBER 22222727277 2727 2272222272222 222222757 
sertrtitierttttttt Ab dem Zweitem Star 
RUN 120 eingeben !!!!trrrrrirtirt! 
SYMBOL AFTER 200 

MEMORY &5FFF:SPEED WRITE 1 

’ 


ten 


200,0,56,41,42,74,74,132,0° 
201,16,16,32,32,64,95,128,128 
202,0,1,49,41,69,67,129,128 
203,60,66,129,129,129,129,66, 


SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 204,60,126,255,255,255,255,12 
190 SYMBOL 


SYMBOL 
SYMBOL 


205,0,24,102,129,129,102,24,0 
206,0,24,126,255,255,126,24,0 
207,4,10,114,129,129,255,255, 


SYMBOL 
230 SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 


208,0,6,9,42,49,168,64,160 
209,0,12,20,34,66,129,255,0 
210,0,32,48,120,124,254,255,0 
211,0,0,255,129,129,255,0,0 
212,0,0,255,255,255,255,0,0 
213,0,60,66,129,129,66,60,0 
214,0,231,149,173,165,173,149 


290 SYMBOL 215,0,189,219,255,219,255,255 


hinenunterprog.------------------------- 
310 FOR a=&A000 TO &AOIC:READ b:POKE a,b 
!NEXT a 

320 DATA &01,&00,&40,&11,&00,&60,&21,&00 
‚&c0,&1a,&f5,&7e,&12,&f1,&77,&13,&23,&0b 
‚&78,&fe,&00,&20,&f2,&79,&fe,&00,&20,&ed 
‚&c9 " 
330 ’'------------------------------- bild 
schirm---------------------------------- 
340 a$=CHR$(143):c$=a$+ta$:d$=SPACE$(4)!e 
$=SPACE$(3):b$=STRINGS(40,a$) 

350 MODE 1:INK 0,24:INK 1,0:INK 2,7:INK 
3,13:1(0)=24:i(1)=0:i(2)=7:1(3)=13:BORDE 
R i(3):col=3 

360 PEN 1:PRINT b$;b$;:PRINT as; :PEN 2:P 


RINT" GR A PH DREH GEN IE 
"s:PEN 1:PRINT a$; 

370 PRINT b$;b$; 

380 PRINT a$;" MALEN ";C$;" LINIE ";c$ 

;" LINIEN ";c$;" FUELLEN";a$; 

390 PRINT a$;d$;CHR$(200);e$;c$;d$;CHR$( 


201);5e$;c$;d$;CHR$(202);e$;c$;d$;CHR$(20 
T);e$;a$;b$; 

400 PRINT a$;" KREIS ";C$;" 
;" ELLYPSE";c$;" SCHEIBE";a$; 
410 PRINT a$;d$;CHR$(203) ;e$;c$;d$;CHR$( 
204) ;e$;c$;d$;CHR$(205) ;e$;c$;d$;CHR$(20 
6);e$;a$;b$; 
420 PRINT a$;" 


DISK ";c$ 


DREIECK" :C$; "TRIANGEL" ;c$ 
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LISTING 1 Schneider/ 


en . BOX "sc$; "RECHTECK" ;a$; 

430 PRINT a$;d$;CHR$(209);e$;c$;d$;CHR$( 
210) ;e$;c$;d$;CHR$(211);e$;c$;d$;CHR$(21 
2);e$,a$;,b$; 

440 PRINT a$;"SPRUEHEN";c$;" FARBEN ";c$ 


;"LOESCHEN";c$;" TEXT ";a$; 

450 PRINT a$;d$;CHR$(208);e$;c$;" ";:FO 
R a=0O TO 3:PEN a:PRINT a$;:NEXT a:PEN 1: 
PRINT" ";c$;" Bere CPC ";a$ 


;b$; 

460 PRINT a$;" VIELECK" ;0$; "TRANSFER" ;c $ 
;"EINLADEN";c$;" ABLADEN";a$; 

470 PRINT a$;d$;CHR$(213) ;e$;c$;d$;CHR$( 
214) ;e$:c$:d$;CHR$ (215) ;e$;c$;d$;CHR$(21 
5);e$;a$;b$;b$; 

480 FOR a=1 TO 3:PRINT a$;SPACE$(38);a$; 
:NEXT a:PRINT b$;:WINDOWE3,2,39,22,24 
490 ’------------------------ variablen & 
strings USW---------------------------- 
500 a$=CHR$ (154) :c$=a$+ta$+ta$+tas+tas+tasta$ 
+a$:b$=CHR$(9) 

510 ma$(1)=CHR$(150)+c$+CHR$(156):ma$(2) 
=CHR$ (149) +b$+b$+b$+b$+b$+b$+b$+b$+CHR$ ( 
149):ma$(3)=ma$(2):ma$(4)=CHR$(147)+c$+C 

HR$(153) 

520 altma$(1)=STRING$(10,CHR$(143)):altm 
$(4)zaltma$(1):altma$(2)=CHR$(143)+b$+b 
$+b$+b$+b$+b$+b$+b$+CHR$ (143) :altma$(3)= 

altma$(2) 

530 mpx(1)=1:mpx(2)=11:mpx(3)=21:mpx(4)= 
3l:mpy(1)=5:mpy(2)=8:mpy(3)=11:mpy(4)=14 
impy(5)=17 

540 a$=CHR$(23)+CHR$(1):b$=CHR$ (23) +CHR$ 
(0):FOR a=1 TO 5:FOR b=1 TO 4:z=z+1l:code 
(b,a)=z:NEXT b,a 

550 xma=1:yma=l:altmpx=l:altmpy=5:x=320: 

y=200:DIM x1(60),y1(60) 

560 xst=14:xsta=15:FOR m=1 TO 4:LOCATE m 

px(xma),mpy(yma)-1+m:PRINT ma$(m):NEXT m 
570 ’----------- --------- -------- - -- bild 
loeschen------------------------------- 
580 CALL &A0O00:CLS:CALL &A0O0O 

590 ’---------- - -- ----------------- haupt 


.600 5j=JOY(0) 

610 IF j=1 AND yma>1 THEN yma=syma-1:GOSU 
B 3320 

620 IF j=2 AND yma<5 THEN yma=zyma+1:GOSI 
B 3320 

630 IF 53=4 AND xma>1 THEN xma=xma-1:GOSU 
B 3320 

640 IF j=8 AND xma<4 THEN xma=xma+1:GOSU 
B 3320 

650 IF 5j=16 THEN FOR t=1 TO 100:NEXT t:s 
t=0:za=0:SOUND 1,20,5,15:ON code(xma,yma 
)GOTO 670,850,950,1050,1200,1360,1510,16 
50,1790,1880,2100,2190,2320,2540,2610,26 
30,2700,2820,2990,3090 

660 GOTO 590 

670 ’--------- ----- ---- ------ ------- male 


680 CALL &A0O00 

690 x=320:y=200:GOSUB 3270 

700 IF x<-20 OR x>639 THEN GOSUB 3270:CA 
LL &A000:GOTO 590 


akti 


LL &A000:GOTO 590 

720 st=st+2 

730 5j=JOY(0) 

740 IF j=1 OR j=5 OR j=9 THEN GOSUB 3270 
!y=ytst:GOSUB 3270 

750 IF j=2 OR j=6 OR j=10 THEN GOSUB 327 
O:y=zy-st:GOSUB 3270 

760 IF j=4 OR j=5 OR j=6 THEN GOSUB 3270 
!x=x-st:GOSUB 3270 

770 IF j=8 OR j=9 OR j=10 THEN GOSUB 327 
0:x=x+st:GOSUB 3270 

780 IF j=17 OR j=21 OR 5j=25 THEN GOSUB 3 
270:y=y+2:GOSUB 3270:PLOT x,y,col:st=0 
790 IF j=18 OR j=22 OR j=26 THEN GOSUB 3 
270:y=y-2:GOSUB 3270:PLOT x,y,col:st=0 
800 IF j=20 OR j=21 OR j=22 THEN GOSUB 3 
270:x=x-2:GOSUB 3270:PLOT x,y,col:st=0 
810 IF j=24 OR j=25 OR j=26 THEN GOSUB 3 
270:x=x+2:GOSUB 3270:PLOT x,y,col:st=0 
820 IF j=16 THEN PLOT x,y,col:st=0 

830 IF j<>O THEN 700 

840 st=2:GOTO 730 


860 CALL &AO0O0O0 

870 x=320:y=200:GOSUB 3270 

880 GOSUB 3150 

890 IF hue=1 THEN FOR t=1 TO 100:NEXT t: 
hue=0:GOSUB 3270:CALL &A000:G0OTO 590 

900 GOSUB 3300:x1=x:yl=y 

910 GOSUB 3150 

920 IF hue=1 THEN FOR t=1 TO 100:NEXT t: 
hue=0:GOSUB 3270:GOSUB 3310:CALL &A000:G 
OTO 590 

930 GOSUB 3270:GOSUB 3310:PLOT x1l,yl,col 
:DRAW x,y:GOSUB 3270 

940 3979 880 


960. CALL &AO0O 

970 x=320:y=200:GOSUB 3270 

980 GOSUB 3150 : 

990 IF hue=1 THEN FOR t=1 TO 100:NEXT t: 
hue=0:GOSUB 3270:CALL &A000:GOTO 590 
1000 x1=x:y1=y:GOSUB 3300 

1010 GOSUB 3150 

1020 IF hue=1 THEN FOR t=1 TO 100:NEXT t 
:hue=0:GOSUB 3270: GOSUB 3310:CALL &A000: 

GOTO 590 

1030 GOSUB 3270:GOSUB 3310:za=-1:PLOT xl 
‚yl,col:DRAW x,y:GOSUB 3270 

1040 x1=x:y1=y:GOTO 1010 

1050 ’ 
llen------------------------------------ 
1060 CALL &AO0O0 

1070 x=320:y=200:GOSUB 3270 


. 1080 GOSUB 3150 


1090 IF hue=1 THEN hue=0:GOSUB 3270:CALL 
&A000:GOTO 590 

1100 x1=x:yl=y:GOSUB 3270:zae=0: Fass TEST 
(x,y):IF far=col THEN GOSUB :3270:FOR t=1 
TO 200:NEXT t:GOTO 1080 

1110 IF y1<0O OR y1>400 THEN 1180 

1120 IF TEST(x1-2,yl)=far AND x1>0 THEN 


.x1=x1-2:GOTO 1110 


710 IF y<-20 OR y>399 THEN GOSUB 3270:CA 1130 w1=4:w2=4:anx=x1 2» 
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1140 wel=zw1:w1=TEST(x1,y1+2):IF 
HEN IF wel<>far THEN xl(zae)=x1 
yl+2:zae=zaetl 

1150 we2=w2:w2=TEST(x1,y1-2):IF 
HEN IF we2<>far THEN xi(zae)=xl1: 
yl-2:zae=zaetl 

1160 IF TEST(x1+2,yl)=far AND x1<640 THE 
N x1=2x1+2:GOTO 1140 
1170 MOVE anx,y1:DRAW x1,yl,col:IF INKEY 
(76)=0 THEN GOSUB 3270:FOR t={ TO 200:NE 
XT t:GOTO 1080 

1180 IF zae>O THEN zae=szae-1:x1=x1l(zae): 
yl=yl(zae):GOTO 1110 

1190 GOSUB 3270:GOTO 1080 

1200 ’--------------- -- --------- ----- kre 


wi=far T 
:yl(zae)= 


w2=far T 
yl(zae)= 


1210 CALL &AO000 
1220 x=320:y=200:GOSUB 3270 
1230 GOSUB 3150 


1240 IF hue=1 THEN FOR t=1 TO 100:NEXT t 
:hue=0:G0OSUB 3270:CALL &A000:GOTO 590 
1250 x1=x:y1l=y:GOSUB 3300 

1260 GOSUB 3150 

1270 IF hue=1 THEN FOR t=1 TO 100:NEXT t 
:hue=0:GOSUB 3270:GOSUB 3310:CALL &A000: 


GOTO 590 

1280 GOSUB 3270:GOSUB 3310:rh=(x1-x)"2+( 
yil-y)°2:IF rh<=0 THEN GOSUB 3270:FOR t=1 
TO 100:NEXT t:GOTO 1230 

1290 ORIGIN x1,yl:r=SQR(rh) 

1300 s=2/r:w=PI/4 

1310 FOR k=0 TO w STEP s 

1320 x2=COS(k)tr:y2=SIN(k)*r 

1330 PLOT x2,y2,col:PLOT-x2,y2:PLOT x2,- 

y2:PLOT-x2,-y2:PLOT y2,x2:PLOT-y2,x2:PLO 

T y2,-x2:PLOT-y2,-x2 

1340 NEXT k 

ORIGIN 0,0:GOSUB 3270:GOTO 1230 

’ 


CALL &AOO0O 

x=320:y=200:GOSUB 3270 

GOSUB 3150 

1400 IF hue=1 THEN FOR t=1 TO 100:NEXT t 
:hue=0:GOSUB 3270:CALL &A000:GOTO 590 
1410 x1=x:y1=y:GOSUB 3300 

1420 GOSUB 3150 

1430 IF hue=1 THEN FOR t=1 TO 100:NEXT t 
:hue=0:GOSUB 3270:GOSUB 3310:CALL &AO000: 

GOTO 590 

1440 GOSUB 3270:GOSUB 3310:rh=(x1-x)"2+( 
yil-y)”2:IF rh<=0 THEN GOSUB 3270:FOR t=1 
TO 100:NEXT t:GOTO 1390 

1450 ORIGIN x1,yl:r=SQR(rh) :s=2/r:w=PI/4 
1460 FOR k=0 TO w STEP s 

1470 x2=COS(k)*r:y2=SIN(k)*r 

1480 PLOT x2,y2,col:DRAW-x2,y2:PLOT x2,- 
y2:DRAW-x2,-y2:PLOT y2,x2:DRAW-y2,x2:PLO 
T y2,-x2:DRAW-y2,-x2 


1490 NEXT k 

1500 ORIGIN 0,0:G0OSUB 3270:G0OTO 1390 
1510 ’------------------------------- ell 
ypse------------------------------------ 
1520 CALL &A000 

1530 x=320:y=200:GOSUB 3270 

1540 GOSUB 3150:IF hue=1 THEN FOR t=1 TO 


LISTING 


100:NEXT t:hue=0:GOSUB 3270:CALL &A000: 
GOTO 590 
1550 x1=x:y1=y:GOSUB 3270:GOSUB 3300:x=x 
1:y=y1:GOSUB 3270 
1560 GOSUB 3150:IF hue=1 THEN FOR t=1 TO 
100:NEXT t:hue=0:GOSUB 3270:GOSUB 3310: 
CALL &A000:GOTO 590 
1570 x2=x:y2=y:GOSUB 3270:GOSUB 3300:x=x 
1:y=y1:GOSUB 3270 


-1580 GOSUB 3150:IF hue=1 THEN FOR t=1 TO 


n 


100:NEXT t:hue=0:GOSUB 3270:GOSUB 3310: 
CALL &A000:GOTO 590 
1590 GOSUB 3270:G0OSUB 3310:rh=(x-x1)"2+( 
y-yl)“2:rh1=(x2-x1)"2+(y2-yl)”2:IF rh<=0 
OR rh1<=0 THEN FOR t=1 TO 200:NEXT t:GO 
SUB 3270:GOTO 1540 
1600 r1=SQR(rh):r2=SQR(rh1):ORIGIN x1,yl 
:3=2/MAX(rl,r2):w=PI/2 
1610 FOR k=0 TO w STEP s 

1620 x3=COS(k)*r2:y3=SIN(k)*rl 


1630 PLOT x3,y3,col:PLOT-x3,y3:PLOT x3,- 


y3:PLOT-x3,- 

1640 NEXT k:ORIGIN 0,0:G0SUB 3270:GO0TO 1 
540 

1650 ’------------ - -- - ----- -- - ----- - - - sc 
heibe---------------------- - -- - -- -- --- -- 
1660 CALL &A00O0 

1670 x=320:y=200:GOSUB 3270 


GOSUB 3150:IF hue=1 THEN FOR t=1 To 

!NEXT t:hue=0:GOSUB 3270:CALL &AO000: 
590 

xi=x:yl=y:GOSUB 3270:GOSUB 3300:x=x 

1:y=y1:GOSUB 3270 

1700 GOSUB 3150:IF hue=1 THEN FOR t=1 TO 
100:NEXT t:hue=0:GOSUB 3270:GOSUB 3310: 

CALL &A000:GOTO 590 

1710 x2=x:y2=y:GOSUB 3270:GOSUB 3300:x=x 
l:y=y1:GOSUB 3270 

1720 GOSUB 3150:IF hue=1 THEN FOR t=1 TO 
100:NEXT t:hue=0:GOSUB 3270:GOSUB 3310: 

CALL &A000:GOTO 590 

1730 GOSUB 3270:GOSUB 3310:rh=(x-x1)”“ 2+( 

y-yl)”2:rh1=(x2-x1)"2+(y2-yl1)”2:IF rh<=0 
OR rh1<=0 THEN FOR t=1 TO 200:NEXT t:GO 

SUB 3270:GOTO 1680 

1740 r1=SQ@R(rh):r2=SQ@R(rh1):ORIGIN x1,yl 
ıs=2/MAX(rl,r2):w=PI/2 

1750 FOR k=0 TO w STEP s 

1760 x3=COS(k)*r2:y3=SIN(k)%*ri 

1770 PLOT x3,y3,col:DRAW-x3,y3:PLOT x3,- 

y3:DRAW-x3,-y3 

1780 NEXT k:ORIGIN 0,0:G0OSUB 3270:G0OTO 1 

680 


1790 ’--------------- - ----- -- - ---- - -- dre 

ieck-------------------- - ---- - - ---- ----- 
1800 CALL &AO000 

1810 x=320:y=200:GOSUB 3270 

1820 GOSUB 3150:IF hue=1 THEN FOR t=1 TO 
100:NEXT t:hue=0:GOSUB 3270:CALL &A000: 

GOTO 590 

1830 x1=x:yl=y:GOSUB 3300 

1840 GOSUB 3150:IF hue=1 THEN FOR t=1 TO 
100:NEXT t:hue=0:GOSUB 3270:GOSUB 3310: 

CALL &A000:GOTO 590 

1850 x2=x:y2=y:GOSUB 3300 

1860 GOSUB 3150:IF hue=1 THEN FOR t=1 TO 
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100:NEXT t:hue=0:GOSUB 3270:GOSUB 3310: 
CALL &A000:GOTO 590 
1870 GOSUB 3270:GOSUB 3310:PLOT x,y,col: 
DRAW x1,y1:DRAW x2,y2:DRAW x,y:GOSUB 327 
0:GOTO 1820 


1880 ’---------------------------- -- tria 
gel-------------- -- ---------------- ---- 
1890 CALL &AO00O0 

1900 x=320:,y=200:GOSUB 3270 

1910 GOSUB 3150:IF hue=1 THEN FOR t=1 TO 
100:NEXT t:hue=0:GOSUB 3270:CALL &A000: 

GOTO 590 

1920 x(O)=x:y(O)=zy:GOSUB 3300 

1930 GOSUB 3150:IF hue=1 THEN FOR t=1 TO 
100:NEXT t:hue=0:GOSUB 3270:GOSUB 3310: 

CALL &A000:GOTO 590 

1940 x(1)=x:y(1)=y:GOSUB 3300 

1950 GOSUB 3150:IF hue=1 THEN FOR t=1 TO 
100:NEXT t:hue=0:GOSUB 3270:GOSUB 3310: 

CALL &A0O00:GOTO 590 

1960 x(2)=x:y(2)=y 

1970 GOSUB 3270:GOSUB 3310 

1980 xs=1/3%(x(O)+x(1)+x(2)):ys=1/3%(y(O 


)+y(1)+y(2)) 

1990 FOR an=0 TO 2:rh(an)=(x(an)-xs)"2+( 
y(an)-ys)“2:NEXT an:IF rh(0)=0 OR rh(1)= 
0 OR rh(2)=0 THEN FOR t=1 TO 200:NEXT t: 
GOSUB 3270:GOTO 1910 

2000 FOR an=0 TO 2:bet(an)=SQR(rh(an)):N 
EXT an 


2010 s=1/(2%MAX(bet(0),bet(1),bet(2))) 
2020 FOR k=1 TO O0 STEP-s 

2030 FOR an=O TO 2 

2049 xk(an)=k*x(an)+(1-k)*xs 

2050 yk(an)=k*y(an)+(1-k)%*ys 

2060 NEXT an 

2070 PLOT xk(0),yk(0),col:DRAW xk(1),yk( 


1):DRAW xk(2),yk(2):DRAW xk(0),yk(0) 


2080 NEXT k 

2090 GOSUB 3270:G0OTO 1910 

2100 ’---------------------------- -- - box 

2110 CALL &AO00 

2120 x=320:y=200:GOSUB 3270 

2130 GOSUB 3150:IF hue=1 THEN FOR t=1 TO 
100:NEXT t:hue=0:GOSUB 3270:CALL &A000: 

GOTO 590 

2140 x1=x:y1l=y:GOSUB 3300 

2150 GOSUB 3150:IF hue=1 THEN FOR t=1 TO 
100:NEXT t:hue=0:GOSUB 3270:GOSUB 3310: 

CALL &A000:GOTO 590 

2160 GOSUB 3270:GOSUB 3310 

2170 PLOT x,y,col:DRAW x1,y:DRAW x1,y1:D 


RAW x,y1:DRAW x,y 
2180 GOSUB 3270:GO0TO 2130 


2190 ’----------------------------- -- rec 

hteck-------------------------------- --- 

2200 CALL &AO00O0 

2210 x=320:y=200:GOSUB 3270 

2220 GOSUB 3150:IF hue=1 THEN FOR t=1 TO 
100:NEXT t:hue=0:GOSUB 3270:CALL &A000: 

GOTO 590 . 

2230 x1=x:y1l=y:GOSUB 3300 

2240 GOSUB 3150:IF hue=1 THEN FOR t=1 TO 
100:NEXT t:hue=0:GOSUB 3270:GOSUB 3310: 

CALL 


&A000:GOTO 590 
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2250 GOSUB 3270:GOSUB 3310 

2260 IF x>=x1 THEN s=-2:GOTO 2280 

2270 s=2 

2280 FOR k=x TO x1 STEP s 

2290 PLOT k\,y,col:DRAW k,yl 

2300 NEXT k 

2310 GOSUB 3270:GOTO 2220 

2320 ’----------------------------- --- sp 
ruehen---------------------------------- 


2330 WHILE INKEY$<>"":WEND:PRINT£E3, "Welc 
he Spruehstaerke":INPUT£3,s:CLS£3 

2340 IF s<O OR s>1000 THEN 2330 

2350 WHILE INKEY$<>"":WEND:PRINT£3,"Welc 
hen Spruehumkreis":INPUT£3,r:CLS£3 

2360 IF r<O OR r>1000 THEN 2350 

2370 CALL &AO000 

2380 x=320:y=200:GOSUB 3270 

2390 IF x<-20 OR x>639 THEN GOSUB 3270:C 
ALL &A000:GOTO 590 - 

2400 IF y<-20 OR y>399 THEN GOSUB 3270:C 
ALL &A000:GOTO 590 

2410 st=st+2 

2420 5j=JOY(0) 

2430 IF j=1 OR j=5 OR j=9 THEN GOSUB 327 
O:y=zy+st:GOSUB 3270 

2440 IF j=2 OR j=6 OR j=10 'THEN GOSUB 32 
70:y=y-st:GOSUB 3270 

2450 IF j=4 OR 5j=5 OR j=6 THEN GOSUB 327 
0:x=x-st:GOSUB 3270 

2460 iF j=8 OR 5j=9 OR $=10 THEN GOSUB 32 
70:x=x+st:GOSUB 3270 


2470 IF j=17 OR j=21 OR 5j=25 THEN GOSUB 
3270:y=y+8:GOSUB 3290:GOSUB 3270 

2480 IF j=18 OR j=22 OR j=26 THEN GOSUB 
3270:y=y-8:GOSUB 3290:GOSUB 3270 

2490 IF j=20 OR j=21 OR j=22 THEN GOSUB 
3270:x=x-8:GOSUB 3290:GOSUB 3270 

2500 IF j=24 OR j=25 OR j=26 THEN GOSUB 
3270:x=x+8:GOSUB 3290:GOSUB 3270 

2510 IF j=16 THEN GOSUB 3270:GOSUB 3290: 


GOSUB 3270 

2520 IF j<>O THEN 23908 
2530 st=0:GOTO 2390 
2540 °’ 
2550 j=JOY(O):IF j=16 THEN FOR #=1 TO 20 
0:NEXT t:GOTO 590 

2560 IF j=8 AND col<3 THEN col=col+1:BOR 
DER i(col) 

2570 IF j=4 AND col>O THEN col=col-1:BOR 
DER i(col) 

2580 IF j=1 AND i(col)<26 THEN i(col)=i( 
col)+1:INK col,i(col):BORDER i(col) 

2590 IF j=2 AND i(col)>O THEN i(col)=i(c 
ol)-1:INK col,i(col):BORDER i(col) 

2600 FOR t=1 TO 200:NEXT t:GOTO 2550 
2610 °’ 


2620 CALL &A000:CLS:CALL &A000:FOR t=1 T 
© 200:NEXT-t:GOTO 590 

2630 ’ 
2640 WHILE INKEY$<>"":WEND:PRINT£3,"Bitt 
e Text eingeben": INPUT£3,text$:CLS£3:IF 
text$=""THEN 2640 

2650 CALL &A000 


ak 
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2660 x=320:y=200:G0OSUB 3270 

2670 GOSUB 3150:IF hue=1 THEN text$="" 
ue=0:G0OSUB 3270:CALL &A000:GOTO 590 

2680 PLOT -2,-2,col:MOVE x,y:TAG:PRINT t 
ext$;:TAGOFF 

2690 GOSUB 3270:GOTO 2670 

2700 ’------------------------------- -- v 


2710 WHILE INKEY$<>"":WEND:PRINT£3,"Wiev 

iele Ecken": INPUT£3,e:CLS£3:CALL &A00O0 

2720 x=320:y=200:GOSUB 3270 

2730 GOSUB 3150:IF hue=1 THEN FOR t=1 TO 
100:NEXT t:hue=0:G0SUB 3270:CALL &AO000: 

GOTO 590 

2740 x1=x:y1l=y:GOSUB 3300 

2750 GOSUB 3150:IF hue=1 THEN FOR t=1 TO 
100:NEXT t:hue=0:G0OSUB 3270:GOSUB 3310: 

CALL &A000:GOTO 590 

2760 GOSUB 3270:GOSUB 3310 

2770 ORIGIN x1,y1:r=SQR((x-x1)"2+(y-y1)” 

2):a=2*PI/e 

2780 FOR k=a TO 2%PI+2%a STEP a 

2790 x1=COS(k)kr:y1=SIN(k)*Xr:IF k=za THEN 
PLOT x1,y1l,col 

2800 DRAW x1,y1:NEXT k 

2810 ORIGIN 0,0:GOSUB 3270:GOTO 2730 

2820 ’------------ ------- -------------- m 


2830 CALL &A000 

2840 x=320:y=200:GOSUB 3270 

2850 GOSUB 3150:IF hue=1 THEN hue=0:G0SU 
B 3270:CALL &A000:GOTO 590 

2860 x1=x:y1l=y:GOSUB 3300 

2870 GOSUB 3150:IF hue=1 THEN hue=0:GOSU 
B 3270:G0OSUB 3310:CALL &A000:GOTO 590 
2880 x2=x:y2=y:GOSUÜB 3300 

2890 GOSUB 3150:IF hue=1 THEN hue=0: GOSU 
B 3270:GOSUB 3310:CALL &A000:GOTO 590 
2900 GOSUB 3270:GOSUB 3310 

2910 IF x1<=x2 THEN xa=x1:xe=x2:GOTO 293 
[0] r 
2920 xa=x2:xe=xl 

2930 IF yl>=y2 THEN ya=y2:ye=y1:GOTO 295 
0 

2940 ya=yl:ye=y2 

2950 FOR k=ya TO ye STEP 2:FOR kl=xa TO 
xe STEP 2 

2960 PLOT x+(k1-xa),y+t(k-ya),TEST(kl,k) 
2970 NEXT kl,k 

2980 GOSUB, 3270:GOTO 2850 


2990 ’----=---------- - -- --- -- --------- -- 
einladen--------------------------7-77-- 
3000 WHILE INKEY$<>"":WEND:PRINT£3,"Naec 
hstes Bild (j/n)":INPUT£3,n$:CLS£3 

3010 IF n$="J"OR n$="j"THEN nam$="'":GOT 


oO 3060 

3020 IF n$="N"OR n$="n"THEN 3040 

3030 GOTO 3000 

3040 WHILE INKEY$<>"":WEND:PRINT&£3,"Bitt 
e Namen eingeben": INPUT£3,nam$:CLS&£3 
3050 nam$="!"+nam$+".bin" 

3060 PRINT£3,"PLAY und eine Taste drueck 
n":WHILE INKEY$="":WEND 

3070 LOAD nam$,&6000 

3080 CLS£3:GOTO 590 # 

3090 '------------------ -------- ---- -- ab 


LISTING 


3100 WHILE INKEY$<>"":WEND:PRINT£3, "Bitt 
e Namen eingeben" :INPUT&£3,nam$:CLS&£3 
3110 PRINT&£3,"PLAY & REC und eine Taste 
druecken":WHILE INKEY$="":WEND 

3120 nam$="'!"+nam$+".bin" 

3130 SAVE nam$,b,&6000,&4000 

3140 CLS£3:GOTO 590 


3150 ’--------------------------- --- bewe 
gUNg------------------------------------ 
3160 IF x<-20 OR x>639 THEN hue=1:RETURN 


3170 IF y<-20 OR y>399 THEN hue=1:RETURN 
3180 st=st+2 
3190 53=JOY(0O) 
3200 IF j=1 OR j=5 OR 5j=9 THEN GOSUB 327 


O:y=zy+st:GOSUB 3270 

3210 IF j=2 OR j=6 OR j=10 THEN GOSUB 32 
70:y=y-st:GOSUB 3270 

3220 IF j=4 OR j=5 OR j=6 THEN GOSUB 327 
0:x=x-st:GOSUB 3270 

3230 IF j=8 OR 5j=9 OR j=10 THEN GOSUB 32 
70:x=x+st:GOSUB 3270 

3240 IF j=16 THEN st=0:FOR t=1 TO .100:NE 
XT t:RETURN 

3250 IF j<>O THEN GOTO 3160 

3260 st=2:GOTO 3190 

3270 ’---------------------=----------- un 
terprogramme---------------------------- 
3280 PRINT a$;:MOVE x,y:DRAWR 15,-5,1:DR 
AWR-10,-10:DRAW x,y:PRINT b$; :RETURN 


.3290 FOR k=1 TO s:x1=INT(RND*r)-r/2:yl=I 


NT(RND#r)-r/2:PLOT x+x1,y+ty1l,col:NEXT k: 
RETURN 

3300 PRINT a$;:MOVE x-5,y-5:DRAWR 10,10, 
1:MOVE x-5,y+5:DRAWR 10,-10:PRINT b$;:SO 
UND 1,10,3,15:za=sza+tl:xm(za)=x:ym(za)=y: 
RETURN 

3310 PRINT a$;:FOR f=1 TO zZa:MOVE xm(f)- 
5,ym(f)-5:DRAWR 10,10,1:MOVE xm(f)-5,ym( 
f)+5:DRAWR 10,-10:NEXT f:PRINT b$;:za=0: 
RETURN 

3320 FOR m=1 TO 4:LOCATE altmpx,altmpy-i 
+m:PRINT altma$(m):NEXT m:FOR m=1 TO 4:L 
OCATE mpx(xma),mpy(yma)-1+m:PRINT ma$(m) 
:NEXT m:altmpx= mpx (xma): altmpy=mpy(yma): 


RETURN 


Fortsetzung von S. 62 


Text: 

Nach der Texteingabe 
kann der Text auf iede 
gewünschte Position ge- 
bracht werden. 


Vieleck: 

Nach der Eingabe der An- 
zahl der Ecken wird es 
wie beim Kreis gehand- 
habt. 


Transfer: 

Hier können Bildschirm- 
teile zerlegt werden. Nach 
der Eingabe zweier ge- 
genüberliegender Punkte 
wird das Rechteck auf 
eine andere Position ge- 
bracht, die man mit dem 
Joystick angibt. 


Einladen: 

Nach der Abfrage, ob das 
nächste Bild geladen 
werden soll, wird je nach 
Entscheidung das Bild 
geladen. 


Abladen: 
Nach der Eingabe des Na- 
mens wird das Bild abge- 
speichert. 
Anmerkung: 
1. Will man den Graphik- 
bildschirm verlassen, so 
fährt man mit dem Pfeil 
aus dem Bildschirm. 
2. Will man das Pro- 
gramm das zweite Mal 
starten, so kann man dies 
mit RUN 120 tun. 

Ralf Hopperdietzel 


REPORT 1 Schneider/ 
akt 


NEUER 
TYVYPENRAD- 


Das Textsystem/Personal- 
computer JOYCE von 
Schneider hat sich in der 
deutschen PC-Landschaft 
einen der allervordersten 
Plätze gesichert. Der gro- 
ße Erfolg dieses Rechners 
ist sicher maßgeblich dem 
ungewöhnlich leistungs- 
fähigen Textverarbeitungs- 
programm LocoScript zu- 
zuschreiben. 
JOYCE-Anwendern und 

- Interessenten, für die ein 
über das Druckbild des 
Matrixdruckers hinausge- 
hendes Höchstmaß an 
Schriftqualität erforder- 
lich ist, steht ab sofort 
der Typenraddrucker 
SDI15 zur Verfügung. 
Der SD15 wird von 
SchneiderData, der Part- 
nerfirma der Schneider 
Computer Division, zu ei- 
nem empfohlenen Preis 


von DM 698,- angeboten. 
Er wird über die Schneider 
Schnittstelle CPS8256 an 
JOYCE angeschlossen. Für 
die Ausgabe von Loco- 
Script-Texten wurde das 
Programm LOCO1S5 ent- 
wickelt (empf. Preis 

DM 59,-), das dank der 
hervorragenden Leistungs- 
merkmale des SD15 eine 
Vielzahl der Gestaltungs- 
möglichkeiten von Loco- 
Script erhält. 


"Der SDI5 ist serienmäßig 


mit paralleler und serieller 
Schnittstelle sowie einge- 
bautem Traktor ausgestat- 
tet. Er verarbeitet Einzel- 
blatt oder Endlospapier 
bis zu einer Breite von 
330 mm und ist daher 
vor allem für Anwendun- 
gen geeignet, in denen 
DIN A4-Breite nicht aus- 
reicht. 


NUTZEN SIE UNSEREN 
KOSTENLOSEN KLEIN- 


ANZEIGEN-SERVICE 


DAS SCHNEIDER CPC 
GRAFIKBUCH 


Zielgruppe 

Alle Nutzer eines Schnei- 
der CPC 464, 664 oder 
6128 finden in diesem 
Buch alle notwendigen In- 
formationen, um die her- 
vorragenden Grafik-Eigen- 
schaften ihres Rechners 
genau kennen und be- 
herrschen zu lernen. 


Inhalt: 

Der Autor behandelt zu- 
nächst die einzelnen Gra- 
fik-Modi, die Grafik-Be- 
fehle und die wichtigen 
Betriebssystem-Routinen. 
Es folgen universell ein- 
setzbare BASIC-Unterpro- 
gramme zum Zeichnen 
bestimmter Figuren, z.B. 
Quader, Kreise, Ellipsen; 
diese Unterprogramme 


werden dann auch in Ma- 
schinensprache imple- 
mentiert und als BASIC- 
Erweiterungen zur Ver- 
fügung gestellt. 

Auch der Geschäftsgrafik 


ist ein Kapitel gewidmet, 
in dem die Programmie- 
rung von Diagrammen 
(Linien-, Balken-, Torten- 
und Säulendiagramme) ° 
vorgeführt wird. Künstle- 
rische Grafiken, dreidi- 
mensionale Figuren und 
Funktionen sowie Stereo- 
Bilder nach dem Anagly- 
phen-Verfahren sind wei- 
tere Themen des Buches. 
Diejenigen Leser, die an 
Animation interessiert 
sind, finden ein eigenes 
Kapitel, das sich mit der 
Erzeugung von Sprite- 
Grafik befaßt. Eine Hard- 


- copy-Routine, die die Aus- 


gabe der erstellten Grafi- 
ken auf einen Drucker er- 
möglicht, rundet das 
Buch ab. 


Zusammenfassung 

Das Buch bietet Anfän- 
gern und Fortgeschritte- 
nen eine umfassende 


Autor: 

Hans Lorenz Schneider 
Format: 
DIN A-5 

Seitenzahl: 

336 mit zahlreichen 
Abbildungen 

Preis: 

DM 48,—-/sFr. 44,20/8 374,- 
Best.-Nr.: 

3611 


ISBN: 
3-88745-611-4 


Darstellung aller Aspekte 
der Computergrafik auf 
dem Schneider CPC. 
Viele Abbildungen und 
Anwendungsbeispiele 
sorgen für ein praktisches 
Lernen direkt am Com- 
puter. 


LOCO 15 


Eines der leistungsfähig- 
sten Textverarbeitungs- 
programme ist zweifels- 
ohne LocoScript. Mit 
der Softwarekomponen- 
te LOCO 15 können Sie 
jetzt Ihre LocoScript- 
Texte auf dem Typen- 
raddrucker SD 15 ausge- 
ben. Dabei bleibt eine 
Vielzahl der in Loco- 
Script reichlich vorhan- 
denen Gestaltungsmög- 
lichkeiten für den Typen- 
raddrucker erhalten, wie 
z.B.: 
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— Blocksatz, zentrieren, 
rechtsbündig 

— Fett- und Schatten- 
druck 

— Unterstreichen voll 
und wortweise 

— Hoch- und Tiefstellen 

— drei verschiedene Zei- 
chendichten, in norma- 
ler (10, 12, 15) und dop- 
pelter Breite 

LOCO 15 ist denkbar ein- 

fach zu bedienen. 

Er kostet DM 59,- (un- 

verbindliche Preisemp- 

fehlung). 


Schneider? 
akt 


DATEX-P NUMMERN! 


Deutschland 
0201/787051 
0201/791021 
0201/793003 
0209/271666 
0211/328249 
0211/556136 
0211/414579 
0211/329318 
0211/329249 
0211/320748 
0211/593453 
02151/801339 
02161/200928 
02202/50033 
0221/2911 
0221/2831 
0221/2951 
0221/1616284 
0221/371076 
02234/58603 
0231/779620 
0231/57011 
0231/52011 
0231/52081 
0231/441103 
0231/7552541 
02331/24826 
0241/81081 
0261/24480 


030/6818679 
030/7868178 


030/240001 
030/240081 
030/240061 
030/314730 
030/7115078 
040/41233098 
040/441231 
040/44261? 
040/441281 
040/7540598 
040/6523486 
04101/23789 
0421/310131 
0421/314291 
0421/315077 
0431/8804556 


SERVICE 


WICHTIGE 


Datex-P PAD, 300 B 
Datex-P PAD, 1200 B 
Datex-P PAD, 1200/75 B 
Multi-Box 

RCPM 

Tölleturm 
Software-Express 
Datex-P PAD, 300 B 
Datex-P PAD, 1200 B 
Datex-P PAD, 1200/75 B 
EPSON Düsseldorf 
Krefeld-Mailbox, C64 
SYMIC 
Computer-Center-Mailbox, 24 Std. 
Datex-P.PAD, 300 B 
Datex-P PAD, 1200 B 
Datex-P PAD, 1200/75 B 
SATURN Mailbox 

WDR Computer-Club 
Mailbox Frechen 
Mythos-Box 

Datex-P PAD, 300 B 
Datex-P PAD, 1200 B 
Datex-P PAD, 1200/75 B 
SATELLIT 64 

IBM 370 

Kobra 

TH Aachen 
Schängel-Box, C64, 300 B, 7D, 1S, 
volldup., 18— 22° 

IBB, C64, 300 B, 7D, 1S, 
volldup., 24 Std. 

CCS, C64, 300 B, 7D, 1S, 
volldup., 24 Std. 

Datex-P PAD, 300 B 
Datex-P PAD, 1200 B 
Datex-P PAD, 1200/75 B 
UNI Berlin 

TIC 

UNI Hamburg, 20 — 6 Uhr 
Datex-P PAD, 300 B 
Datex-P PAD, 1200 B 
Datex-P PAD, 1200/75 B 
USC, 24 Std. 

MCS, 22 — 6 Uhr 

WANG Computer 
Datex-P PAD, 300 B 
Datex-P PAD, 1200 B 
Datex-P PAD, 1200/75 B, 
UNI Kiel 


0448/7513 
0511/326651 


0511/3274811 


0511/327591 
05151/63687 
0521/59011 
0521/59021 
0521/59041 
06081/9677 
0621/39931 
0621/39941 
0621/39951 
06434/6291 
0681/810011 
0681/810031 


' 0681/810061 


06821/8441 
069/726527 
069/357844 
069/20281 
069/20291 
069/20201 
069/6638191 
069/816787 
0711/461032 
0711/299171 
0711/2990611 
0711/299291 
07191/86163 


0721/60241 
0721/60381 
0721/60581 
082 1/464011 
0821/464031 
0821/464051 
089/888200 


089/228730 
089/228630 
089/228758 
089/222066 
089/280310 
-089/596422 
089/598423 
0911/20571 
0911/20541 
0911/20501 
Schweiz 


0041-53/45458 


68 


W.M.S. 

Datex-P PAD, 300 B 

Datex-P PAD, 1200 B 

Datex-P PAD, 1200/75 B 

HCC, C64, 300 B, 8D, 2S, voHldußs; 24 Std. 
Datex-P PAD, 300 B 

Datex-P PAD, 1200 B 

Datex-P PAD, 1200/75 B 

Taunus Mailbox, 15 — 7 Uhr 

Datex-P PAD, 300 B 

Datex-P PAD, 1200 B 

Datex-P PAD, 1200/75 B 

CCCC 

Datex-P PAD, 300 B 

Datex-P PAD, 1200 B 

Datex-P PAD, 1200/75 B 

Bitnik, C64, 300 B, 8D, 1S, volldup., 20-24 Uhr 
FIB, C64, 300 B, 7D, 1S, volldup., 18 — 22 Uhr 
UNI Frankfurt 

Datex-P PAD, 300 B 

Datex-P PAD, 1200 B 

Datex-P PAD, 1200/75 B 

COMBO (COMmodore Box) 

TECOS — PTC, ca. 20 — 7 Uhr 

PFM, C64, 300 B, 7D, 2S, volldup., 24 Std. 
Datex-P PAD, 300 B 

Datex-P PAD, 1200 B 

Datex-P PAD, 1200/75 B 

Infonet, Apple Il+, 300 B, 8D, 1S, 
volldup., 24 Std. 


Datex-P PAD, 300 B 

Datex-P PAD, 1200.B 

Datex-P PAD, 1200/75 B 

Datex-P PAD, 300 B 

Datex-P PAD, 1200 B 

Datex-P PAD, 1200/75 B 
Neuschwanstein, C64, 300B, 7D,2S, 


"volldup. 20-7 Uhr 


Datex-P PAD, 300 B 
Datex-P PAD, 1200 B 


-Datex-P PAD, 1200/75 B 


GRIPHTON Rechenzentrum 
CYBER 

Franzis (TEDAS), 7D, 2S 
Franzis (TEDAS) 

Datex-P PAD, 300 B 
Datex-P PAD, 1200 B 
Datex-P PAD, 1200/75 B 


PIM, 300 B, 8D, 1S, volldup., 24 Std. 
H. Schmidt 


| SERVICE 
akt? 


DFU: 


Mailboxen, die meistens 
von Zeitschriften oder 
Computerherstellern ein- 
gerichtet werden, er- 
freuen sich immer größe- 
rer Beliebtheit und die 
Tendenz ist steigend. 

Die wichtigsten Rufnum- 
mern konnten Sie bereits 
in der Ausgabe 5/86 
nachlesen 


WOZU DIENEN 
EIGENTLICH 
MAILBOXEN? 


In Mailboxen können be- 


liebige Informationen ge- 
speichert bzw. abgerufen 
werden. Das Angebot ei- 
ner Mailbox reicht in der 
Regel von Programman- 
geboten, Neuheiten, 
Kontaktwünschen zu an- 
deren Computerbesit- 
zern bis zur totalen Kom- 
munikation verschiede- 
ner Computeruser. Hier- 
bei spielt der Computer- 
typ überhaupt keine Rol- 
le. So kann ein Schnei- 
derbesitzer problemlos 
mit einem Sinclairbesit- 

zer per Keyboard kom- 
munizieren. 


DER 
DIALOGVERKEHR 


Das Wichtigste beim Dia- 


logverkehr ist die Termi- 
nalsoftware, die die Kom- 
munikationsfähigkeit bei- 
der Computer gewähr- 
leistet. Nach dem man 
also die gewünschte 
Mailbox erreicht hat, er- 
scheint gewöhnlich nach 
der Bedienungsanleitung 
das Hauptmenü. Nun 
wartet der Computer auf 
eine Eingabe und führt 
anschließend die ge- 
wünschte Funktion aus 
(Mustermenü s. Hard- 


Die MUSTER-MAILBOX 


GEWUSST 


begrüßt Sie mit einem CPC 464 


KRRRRRRERRRERRRERTTTTRR RK FR TR FR TR RR FE RR RR RR RR RR RR 


* BEDIENUNGSANLEITUNG: 


* — ENTER 
* _ Ctri/Y 
* — Ctrl/X 
* —- Ctrl/Z 
— Ctri/B 


DIE EINGABE VON: 


— schließt jede Eingabe ab 

— hält die Ausgabe an 

— setzt Ausgabe fort 

— bricht Ausgabe ab 

— führt zum nächsten Eintrag 


“bewirkt Ausgabe des vorhergehenden Menüs 
7?" bewirkt Ausgabe des Hauptmenüs 


* 
* 
* 
* ''%'' bewirkt erneute Ausgabe des Menüs 
* 
* 
* 


* ENDE” bewirkt Ausklinken der Verbindung 


KERRRRRERRERTERRERTERR TER TFT TFT N RR RR RE RR RR RR RR 


Sie sind der .... Anrufer! 


copy). Aber Vorsicht: 
Der Computer klinkt sich 
meistens nach einer be- 
stimmten Zeit bzw. nach 
soundsoviel abgerufenen 
KBytes aus. 


DIE WICHTIGSTEN 


MAILBOX- 
STICHWORTE: 


AKUSTIKKOPPLER: 


Akustikkoppler wandeln 
digitale Informationen 
beim Senden und beim 
Empfangen in Töne um. 


BAUD: 

Geschwindigkeit der Da- 
tenübertragung. 500 
Baud = es werden 500 
Bit pro Sekunde über- 
tragen. 


DATENFORMAT: 

Zuer fehlerfreien Daten- 
übertragung zweier Teil- 
nehmer werden Formate 
festgelegt, wie z.B. 
Baud, Normierung und 
Code. 


DOWNLOAD: 
Abspeichern empfange- 
ner Daten. 


DUPLEX: 

Die Daten werden in bei- 
de Richtungen übertra- 
gen. Die Teilnehmer kön- 
nen gleichzeitig empfan- 
gen und senden. 


HALBDUPLEX: 
Übertragung läuft nur in 
eine Richtung. 


MODEM: 
Modulator-Demodulator. 
Ermöglichen dem Com- 
puter, Telefonnummern 
zu wählen, da sie elek- 
trisch mit dem Telefon- 
netz verbunden sind. 
Modems werden nur von 
der Post angeboten. Da- 
her sind Sie auch gebüh- 
renpflichtig. 


PARITÄT: 
Kontrolle zur Datensiche- 
rung. 


UPLOAD: 
Übertragung von Dateien 
an Mailbox-Rechner 


Mit diesen Begriffen sind 
nun auch Sie dem Fach- 
latein der DFÜ-USER 
gewachsen. D.B. 
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Pe u 


* 
* 
* 
* 

* 


TAIFUN 
BASIC-Compiler 


'CPC 464: DM 124,90 
CPC 664/6128: DM 139,90 
Das überlegene Programmiersystem für alle 


CHIP (8/85); 

"Bei ISSCOM 1 aus dem gleichen Hause 

handelt es sich um eines der wohl wichtig- 

sten Programme für den Schneider über- 

haupt.” Ba 
er-Schau (7/85). 

"ISSCOM 1 wendet sich an den Basic-Pro- 

Grammierer und zählt wohl zu den wichtig 

sten Hilfsmitteln, denn _” 


"Mit ISSCOM 1 steht ein leistungsfähiger 


Compiler für den CPC 464 zur Verfügung, mit 
dem es möglich ist, BASIC-Programme en 
bloc in die für Computer verständliche 
Maschinensprache zu übersetzen.” 

"Der Vorteil: Die Ausführungsgeschwindig- 
keit erhöht sich um den Faktor 20 bis 200.” 
Eine Aufzählung der zusätzlichen Vorteile 
von TAIFUN würde den Rahmen dieser An- 
zeige bei weitem sprengen, denn er stellt nun 
gleichzeitig noch eine sehr umfangreiche 
BASIC-Belehlserweiterung (CIRCLE, FILL 
etc.) dar. 

Kostenlose Inlormationen über unser gesam- 
tes Lieferspektrum und Bestellungen bei: 


GERDES 
ImperlalSOFTwareSystems 
Heldegartenstraße 36 
D 5300 Bonn I 
Tel. 0228/25 2474 


CPC-Schneider Flugtraining 
für CPC 464, 664, 6128. 
Umfassende Bewertung der 
Flüge. 

A) Hubschrauber-Simulator 
in Aktion. 9 Anzeigen im 
Cockpit. 3 Flugprogr. zur 
Wahl 29 DM 
B) Space Shuttle-Landung 
Echtzeitsimulation, nach 
NASA-Unterlagen. 29 DM 
C) Boeing-727 Simulator. 


' Dies Programm ist zur An- 


fänger- und Instrumenten- 
Flugschulung geeignet. Mit 
Anleitung 34 DM 
Ab 2 Program. jedes 

minus 5 DM 
Auf Disk plus 7 DM. Info 
gegen Rückporto. Fluging. 
F. Jahnke, 3344 Flöthe 1, 
T. 05341/91618 


DIALOG & FINANZ 


Finanzbuchhaltung für alle 

CPC's Betriebssystem vortex 
VDOS 2.0 
— Buchen im Bildschirmdialog 
- freie Kontenwahl (120 max.) 
— Personenkonten (1000 max.) 
— Druckroutinen f. Journaldr., 
—- Summen u. Saldenl., Ktn.-dr., 
- UST-VA, BWA, Bilanz, GuV 
DM 395.- 
DM 275.- 
DM 25.- 


20651/48492 


computer service 


r. becker 
Hauptmarkt 1 - 5500 Trier 


inkl. Handbuch 
dto. o. Persktn. 
Demo-Disk + Info 


Super Schnell 
Versand! 


ELITE (DEUTSCH) 
Exploding Fist 
Friday the 13th 
Ghostbusters 
HACKER 
Impossible Mission 
3 D GRAND PRIX 
Colossus 4.0 

Hanse 

WAY OF THE TIGER 
Ping-Pong 

SPACE INVASION 
Trivia (Deutsch) 
WINTER GAMES 
Wintersports 
ZORRO 


usw, 


39,- 


Versandkatalog gegen 
2,- DM in Briefmarken 
Alle Preise inkl. MWSt. 
zzgl. NN + Porto 
ab 100,- Verp. + Porto frei 


SoftwareServiceGenter 
Postfach 248 
4930 Detmold 

Tel.: 05231/29798 


WRITER TR TR TR 


Programme vom Spezlalisten: 


MUSIC COMPOSER Cass. DM 
MASTERCHESS Cass. DM 
FIGHTER PILOT Cass. DM 
JUMP JET - Cass. DM 
WINTERGAMES Cass. DM 
ZEN ASSEMBLER Cass. DM 
ELITE (deut. Vers) Cass. DM 
THE HACKER Cass. DM 
MINDSHADOW Cass. DM 
ALIEN 8 Cass. DM 
WAY OF THE EXPLODING 

FIST Cass. DM 


36.90 
29.90 
31.90 
31.90 
36.90 
64.90 
64.90 
39.90 
39.90 
39.90 


36.90 


Natürlich haben wir auch Programme auf 
Disk. Bitte GRATIS-Liste Disk./Cass. 
anfordern! 


PLEXI COVER CPC 464 
PLEXO COVER CPC 664 
LIGHT PEN MODUL 
DISK BOX 35 
SYNTHESIZER CPC 
STEREO 

(mit Software+Lautsprechern) 


DM 
DM 
DM 

‚DM 


23 — 
27— 
9— 
29.90 


DM 159— 


CENTRONICS KABEL DM 
(Centronics Drucker an CPC) 


Wir liefern ab DM 100,— frei Haus! 
Per V-Scheck oder Nachnahme (immer 
mit Porto!) Unter 100,— plus Porto! 
Listenanforderung und Bestellung an: 
Elektronik Center 
Wachterstr. 3 
8170 Bad Tölz, 
Tel.: 08041/41565 


RR TR TR U 


46.90 


Schneiden 
akt 


ERSTE 
HILFE 
FÜR 
CPC 


Sicherlich hatten auch Sie 
schon einmal während des 
Programmierens die Steu- 
ercodes des Joysticks, 

die Farbcodes oder ande- 
re wichtigen Sachen ver- 
gessen. 

Ein mühseliger Gang zum 
Bücherregal blieb Ihnen 
dann nicht erspart, um 
dann in dem Handbuch 
die oben genannten Codes 
zu suchen. 

Zukünftig können Sie 
sich diesen Gang nun spa- 
ren, da Ihnen das folgen- 
de Programm durch Drük- 
ken von zwei Tasten er- 
laubt, diese Daten in über- 
sichtlicher Form auf den 
Bildschirm zu zaubern. 


Folgende Daten werden 

aufgelistet: 

1. Farbcodes 

2. Joystickcodes 

3. Funktionstastencodes 

4. C-Dur Tonleiter und 
ein paar Daten zur 
Grafikauflösung. 


Wie die Seite ‘auf den 
Bildschirm gebracht wird, 
ist im Vorspann des Pro- 
gramms beschrieben (ZB 
= Zahlenblock). 


Achtung: Achten Sie im- 
mer darauf, daß Sie die 
Hilfsseiten nicht unmittel- 
bar nacheinander aufru- 
fen, da sonst die Fehler- 
meldung DATA 
EXHAUSTED ausgegeben 
wird. Es muß also zwi- 
schen dem Aufrufen je- 
weils immer mindestens 
eine neue Zeile program- 
miert werden. 

Wichtig: Es ist unbedingt 
erforderlich, daß vor dem 
Hauptteil “T2° immer der 
Lader geladen wird, da 
dieser Umdefinierung der 
Tasten und der Symbols 
beinhaltet. 


LISTING 


= FIRST AID-Lader = 
= <Cc>1986 = 


= by S. Basler 


80 GOSUB 360 


90 


-100 


110 
120 
N 1 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 


ST 


260 
ys 
270 


VEKKKKKKKKKKKKKKRRE KICK X 
’Titelbild 
IEKKKKKKKKKKKKK RR KK ck 
MODE 2:INK 0,24:BORDER 24:INK 1,0:PE 

:PAPER 0:CLS 

ORIGIN 140,55 

DRAW 0,255 

DRAW 305,255 

DRAW 305,0 

DRAW 1,0 

DRAW 1,255 

DRAW 304,255 

DRAW 304,0 

ORIGIN 140,88 

DRAW 305,0 

ORIGIN 140,220 

DRAW 305,0 

LOCATE 11,8:POKE 45512,1:PRINT"F IR 

A I D":POKE 45512,2 

LOCATE 28,10:PRINT CHR$(164)" 

. Basler" 
LOCATE 21,13 


1986 b 


:PRINT"CTRL & ZB 1: Seit 


e erscheint" 


280 


LOCATE 21,14:PRINT"CTRL & ZB 2: Seit 


e wird gell[lscht" 


Er LOCATE 21,16:PRINT"Programmanfang: 6 
100" 

300 LOCATE 21,17:PRINT"Programmende: 6 
5530" 

310 LOCATE 21,19:PRINT"L[schen des Progr 
amms: CTRL & CLR" 

320 LOCATE 26,21:PRINT"Programm wird gel 
aden !" 

330 GOSUB 440 

340 LOAD "t2" 

350! ERKKEKKKKKKKKKKKK KK KK KK KK X 

360 ’Deutscher Zeichensatz 

370 ’RRRKKKKKKKKRKKKKKKI KK KK KK 

380 SYMBOL AFTER 91 

390 SYMBOL 91,0,&66,0,&3C,&66,&66,&3C:.’.o 
e 

400 SYMBOL 93,0,&66,0,&66,&66,&66,&3E:’u 
e 

410 SYMBOL 123,&3C,&66,&66,&7C,&66,&66,& 
7C,&60:’ss 

420 RETURN 

A3O ’RRKKKKKKKKKKKKI KK X 
440 ’ Funktionstasten umdefinieren 

A5O ’RRKKKKKKKKKKKKKKKKKK KK KK KK KK 
460 KEY DEF 14,0,&32,130,140 

470 KEY DEF 13,0,&31,129,139 

480 KEY DEF 16,1,&10,&10,150 

490 KEY 12,"goto 65100"+CHR$(13) 

500 KEY 11,"mode 1:list 1-65099"+CHR$(13 
) 

510 KEY 22,"call &BBO0O:delete 65100-6553 


O"+CHR$(13) 
Sascha Basler 520 RETURN 
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LISTING  ochneidev/ 
akt 


65100 '==2=2=2=2=2=2=2=2=222=2=2=22 2222 222222222222 pastellblau 


65110 ’= = (14)%* 135 ;ı 7 *X >H[here Okta 
65120 ’= FIRST AID = ven: Werte" 
65130 ’'= = 65440 DATA " ' orange 
65140 ’= <C> 1986 — (15)* 136 ı 8 x halbieren/ti 
65150 ’= by S. Basler = efer:" 
65160 ’= = 65450 DATA " rosa 
65170 ’= Ladeprogramm muss umbedingt = (16) * 137 19 * Werte verdop 
65180 ’= vorher geladen werden !! = peln<" 
65190 ’= = 65460 DATA " pastellmagenta 
65200 ’===2=2=2=2=2=2=2=2=2=2=2=22 22222222222 222222 (17)x 138 ! « KEKKKKKEKKKKKK 
65210 ’Bildschirmaufbau KIKKRKKKKKK" 
65220 MODE 2:INK 0,24:BORDER 24:INK 1,0: 65470 DATA " hellgr]n ; 
PEN 1:PAPER 0:CLS (18)* 139 ' ENTER %* SENKR.P.: Mo 
65230 FOR a= 1 TO 25 de 1 (200)" 
65240 READ A$ 65480 DATA " seegr]n 
65250 PRINT A$ (19)%* 140 ı RUN’ x* Mode 2(200)/ 
65260 NEXT Mode 0(200)" 
65270 DATA " FIRST AID <c> 65490 DATA " helles blaugr]n 
1986 BY S. BASLER /exklusiv f]r SCHNEIDE WIE 22222222222 2222222 222 22 2 22 2 22 22 2 2 m 
R-aktiv", KERKKKKKKKK" 
65280 DATA'XKKKKKKKKKKKKKKKKKKK KK KK KK I & 65500 DATA " "limonengr]n 
XKEKKKKKKKEKKKKKKK KK IE KK KK KK KK KK KK (21)%* * Waagr. P.: M 
KIRRKEKKKK" ode 1 (320)" 
65290 DATA "FARBCODES: schwarz 65510 DATA " pastellgr]n 
(0)! pastellblaugr]n (23)%* JOYSTICK- (22)XXKKKKKKKKKKKKKKKK KK KK Mode 2(640)/ 
5 1 9" Mode 0(160)" 
65300 DATA " blau 65520 ’Eingabewindow 
(1)! hellgelb (24)* STEUERUNG: 65530 WINDOW 34,54,24,24 
\1/" 
65310 DATA " hellblau 
(2)ı pastellgelb (25)%* 
4-%-8" 
65320 DATA " rot 
(3)} leuchtendwei { (26) * 
AN 
65330 DATA " magenta 
WaR2222222 2222222222222 227 
6 2 10" 
65340 DATA " hellviolett 
(5)* FUNKTIONSTASTEN: * Feuer 1: 32/ 
Feuer 2: 16" 
65350 DATA " hellrot 
(6)% erw. Zch. ! Wert KAKKKKKKKKKKKK 
KK" } 
65360 DATA " purpur 
(7)x 128 | 0 * C-DUR TONLEI 
TER: " 
65370 DATA " hellmagenta 
(8)%* 129 ı 1 x 478 (c )/451 
(c£)/" 
65380 DATA "- gr]n 
(9)%* 1305 92 x 426 (d )/402 
(d£)/" 
65390 DATA " blaugr]n 
(10)x 131 1.3 * 379 (e )/358 
(f )" 
65400 DATA " himmelblau 
(11)x 132.ı 4 * 338 (f£)" 
65410 DATA " gelb 
(12)%* 133 - 5 x 301 (g£)/284 
(a )" 
65420 DATA " weil 
(13)* . 134 I 6 * 268 (a£)/253 
(h )" 
65430 DATA " 
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'Schneider/ 
Va 


DAS 


LISTING 


MONSTER 


Pacman läßt grüßen, auch bei diesem Spiel, das 
ganz ansprechend ist. Abtippen und Ausprobieren. 
(Selbstverständlich auch im Kassettenservice 
erhältlich) 


Ihr befindet Euch auf 
Schatzsuche in einem 
unterirdischen Höhlensy- 
stem. Ihr kommt in einen 
Raum, der voller Gold- 
münzen ist. Der Schatz 


wird aber von einem ge- . 


fährlichen Höhlenmon- 
ster bewacht. Der Raum 
besteht aus 4 Hauptgän- 
gen. An 4 Stellen könnt 
Ihr zwischen den Gängen 
wechseln. Das Monster 
kann jedoch nur ihm be- 
nachbarte Gänge errei- 
chen. Da das Höhlenmon- 
ster sehr schlau ist, hat 
es einige Fallen für Euch 
aufgestellt. Wenn Ihr die- 
se überquert, öffnet sich 
eine zusätzliche Geheim- 
tür zwischen den Gängen, 
die nur das Monster be- 
nutzen kann. 

Versucht möglichst viele 
Münzen aufzusammeln, 
ohne Euch von dem ge- 
fräßigen Höhlenmonster 
erwischen zu lassen. 
Steuerung: 
Cursortasten/Joystick 


10 ’.2.2.2...MONSTER... 
20 ’.....(C).8/1985. 
30 ’ 

40 MODE O0 


50 RESTORE 480 


Wichtige Hinweise: 
Bitte gebt zunächst 
Teil 1 des Programms ein 
und speichert ihn auf Kas- 
sette ab. Tippt dann Teil? 
ein und speichert ihn hin- 
ter Teil 1 (mit SAVE 
“monsP gm“). 
Da es bei vielen Program- 
men, wie auch bei diesem, 
mit dem Tastaturpuffer 
Ärger geben kann, solltet 
Ihr nach vollständiger Pro- 
grammeingabe folgende 
2 Befehle einfügen. 
(Diese leeren an bestimm- 
ten Stellen im Programm- 
ablauf den Tastaturpuffer. 
Leider läßt sich dann das 
Programm nach dem Start 
nicht mehr breaken): 


475 CALL&BBO3 
1895CALL&BBO3 


Um bei diesem Spiel diese 
hohe Geschwindigkeit zu 
erreichen, wird der aktuel- 


le Spielstand nur angezeigt, 


während eine Taste ge- 
drückt wird. 
Georg Huonker 


(HEADER)......... 


.by..HUSOFT.... 


60 INK 0,0:INK 1,9:INK 2,0:INK 3,18,4:IN 


K 4,4,18 


70 PAPER 0:PEN 1:BORDER 5,15 
80 FOR n=5 TO. 11:INK n,9:NEXT 


90 TAG 


100 PLOT 500,500,2:MOVE 0,100:PRINT "HUS 


OFT"; 


110 ystart=380:ydehn=6 
120 xstart=30:xdehn=3 


130 laenge =188 
140 GOSUB 370 


220 


150 PLOT 500,500,3:MOVE 80,270:PRINT "p 
resents"; 

160 PLOT 500,500,2:MOVE 0,100:PRINT "MON 
STER"; 

170 ystart=200:ydehn=4 

180 xstart=100:xdehn=2 

190 laenge=220 

200 GOSUB 370 

210 TAGOFF 

PEN 4:LOCATE 6,21:PRINT "Loading !'! 
230 FOR n=5 TO 11:READ a:i(n-4)=a:INKk n, 
a:NEXT 

240 FOR o=1 TO 105 

250 i7=i(7) 

260 FOR n=6 TO 1 STEP-1 

270 i(n+1)=i(n):INK n+5,i(n) 

280 NEXT 

290 i(1)=i7:INK 5,i(1l) 


300 FOR m=1 TO 20:NEXT 

310 NEXT 

320 ’ %xx% HAUPTPROGRAMM LADEN kx*kk 
330 PEN 1 

340 RUN "'!monspgm" 

350 ’ 

360 °’ 

370 ’U-Prog. GROSSSCHRIFT 
380 i=4 

390 FOR y=100 TO 88 STEP-2 
400 i=it+l 

410 FOR x=0 TO laenge STEP 4 


420 
430 


yg=--(100-y)*ydehntystart 
xg=-x*xdehn+txstart 

440 PLOT xg+8,yg-2,i:PLOT xg+t12,yg-2 

450 IF TEST(x,y)=2 THEN PLOT xg,yg:PLOT 
xg+t4,yg:PLOT xg+t4,yg-2!PLOT xg,yg-2:PLOT 


x8g,yg-4:PLOT xg+t4,yg-4:SOUND 2,300,2,7 
460 PLOT xg+8,yg-2,0:PLOT xg+ti2,yg-2 
470 NEXT:NEXT:RETURN 

480 DATA 1,3,7,9,11,15,25 

OD irre ee Aare RR IE ROHORT 
15: 7 SCH N.Es L. D. E.R..C.P.C. 3 6.4. 
ZONE re Re ers rer ee re, © s 
25. Far MO 4N..8:s TesEi oRı sus 
ION er iss Velen R 

II ae ea nee re 
20, "ae geschrieben. 8/1985. usseere 
ee Be SEEN GEORG HUONKER. . er ae le 
65: re er a NEN nee N Si 
70 ° 

100 ’ %%* S T AR T / SPIELANLEITUNG 
110 MODE 1 

120 CLEAR:GOSUB 2170 

130 ti$="M ON S T E _R" 

140 au$=" ."+CHR$(164)+".1985. .HUS 
OFT...." 

150 mn$="GREEN " 

160 GOSUB 3090 

170 PAPER 0:BORDER 1 

180 FOR n=398 TO O0 STEP-2 

190 MOVE O0,n:DRAW 638,n,0 

200 SOUND 2,n+50,2,7:NEXT 

210 TAG 

220 PLOT 0,500,1 

230 SOUND 2,0,675,,,,10 


240 FOR n=-350 TO 140 STEP 8 
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LISTING | Schneider/ 
akt 


250 MOVE n,396: PRINT ti$; 
260 NEXT 

270 TAGOFF 

280 ENT 1,13,3,1 

290 FOR n=1 TO 26 

300 SOUND 2,30,13,,,1 

310 b$=MID$(au$,n,1)+" " 
320 FOR r=39 TO n+6 STEP-1 
330 LOCATE r,8:PRINT b$ 
340 NEXT:NEXT 

350 TAG 

360 FOR n=286 TO 378 STEP 2 
370 MOVE 96,n:PRINT au$; 
380 SOUND 2,80,5,7,,,2 


390 NEXT 

400 TAGOFF 

410 PEN 2 

420 LOCATE 1,4 

430 PRINT "Sie befinden sich auf Schatzs 
uche in einem unterirdischen Hoehlens 
ystem." 

440 PRINT "Sie kommen in einen Raum, der 
voller Goldmuenzen ist. Der Schatz w 


ird aber 
enmonster bewacht." 
450 PRINT "Der Raum besteht aus 4 Hauptg 


aengen. An 4 Stellen koennen Sie zwis 
chen den Gaengen wechseln, das Monster 
kann je- doch nur benachbarte Gaenge e 
rreichen. Da das Hoehlenmonster sehr sc 
hlau ist," 
460 PRINT "hat es einige Fallen fuer Sie 
aufge- stellt. Wenn Sie diese ueberq 
vueren oeffnet eine zusatzliche Gehe 
imtuer zwichen den Gaengen, die nur 


" 


das Monsterbenutzen kann. 
470 PRINT "Versuchen Sie moeglichst viel 
e Muenzen aufzusammeln, ohne sich von d 


em ge- fraessigen Hoehlenmonster erw 
ischen zu lassen. STEURUNG --> CURSOR 
/JOYST." 


480 PEN 3:LOCATE 1,25:PRINT "(M)onitor-> 
"smn$;" SPIEL-> BEL. TASTE" 

490 LOCATE 1,25:PRINT "(M)onitor-> 
Son: SPIEL-> BEL. TASTE" 

:500 ta$=LOWER$(INKEY$) 

510 IF ta$="m" THEN GOSUB 3090:GO0TO 490 

520 IF ta$<>"" THEN GOTO 540 ELSE GOTO 5 

00 

530 GOTO 490 

540 ’ xxx 

xkrxıXK% 

550 GOSUB 610 

560 GOSUB 2430 
570 GOSUB 700 
580 SPEED KEY 30,2 

590 GOSUB 1820 

600 GOTO 550 

610 ’ %%% SPIELINITIALISIERUNG 

620 ERASE torx,tory 

630 DIM torx(30),tory(30) 

640 liv=3:lev=1 

650 sc$="":sc=0 

660 zuf=INT(RND#12)+1 

670 marx=ax(zuf):mary=ay(zuf) 

680 SPEED KEY 1,1 

690 RETURN 


'smn$ 


HAUPTPROGRAMM 


von einem gefaehrlichen Hoehl ° 


700 ’ xxx SPIEL NEU 

710 zml=-1:z1=-1:z2=20:z4=0 

720 six=16:siy=0 

730 rix=16:riy=0:rr=3 

740 syn=302:sxn=64 

750 sya=500:sxa=500 

760 rya=500:rxa=500 

770 ryn=46:rxn=576 

780 rba=1:sba=1 

790 pu=0 

800 TAG 

810 ’ %*%*%* SPIELSCHLEIFE ANFANG 

820 ecke=0 

830 IF TEST(sxn+6,syn-8)<>0 THEN pu=sputl 
:sc=sc+t10%lev:SOUND 2,60,4 ELSE sc=sc-5 
840 IF pu=330 THEN GOTO 1650 

850 plon=TEST(rxn+6,ryn-B3) 

860 MOVE rxa,rya:IF z1=0 AND zmil=0 THEN 
ELSE PRINT " "; 

870 IF z1=0 THEN PLOT rxa,rya,3:PRINT CH 
R$(203); ELSE IF zmi=0 THEN PLOT rxa,rya 
‚3:PRINT CHR$(chnma); 

880 PLOT rxat6,rya-8,ploa 

890 MOVE sxa,sya:PRINT " "; 

900 PLOT 500,500,2:MOVE sxn,syn:PRINT CH 
R$(224); 

910 PLOT 500,500,3:MOVE rxn,ryn:PRINT CH 

R$(225); 

920 IF rxn=sxn AND ryn=syn THEN GOSUB 17 
20:IF liv=0 THEN RETURN 

930 ploa=plon 

940 z1i=z1-1:zmil=zmi-1 

950 rxa=rxn:rya=ryn 

960 rxa=rxn:rya=ryn 

970 sxa=sxn:sya=syn 

980 IF TEST(sxn+tsix,syn+siy)<>0O AND z2=0 
THEN GOSUB 1340 

990 IF TEST(rxntrix,ryn+triy)<>O AND z4<3 
THEN GOSUB 1410 ELSE IF TEST(rxntrixz,r 
yn+riyz)=3 AND z4=3 THEN zi=1 

1000 a$=INKEY$:IF a$<>"" THEN GOSUB 1110 
1010 t1=0 

1020 IF TEST(rxn+18,ryn)=1 THEN t1=t1+l1l 
1030 IF TEST(rxn,ryn-18)=1 THEN ti1=t1+1l 
1040 IF TEST(rxn-2,ryn)=1 THEN t1=t1+1 
1050 IF TEST(rxn,ryn+2)=1 THEN ti=t1l+1 
1060 IF ti<=1 AND z4=0 THEN GOSUB 1200 
1070 IF z2=0 THEN sxn=sxn+tsix:syn=syn+si 
y ELSE sxn=sxn+sixz:syn=syn+siyz:z2=z2-1 
1080 IF z4>0 THEN z4=z4-1 

1090 IF z4<2 THEN rxn=rxntrix:rynsryn#tri 
y ELSE rxn=rxn#+trixz:rynsryntriyz 

1100 GOTO 810 

1110 ’ %%% TASTATURABFRAGE 

1120 PLOT 500,500,1:MOVE 128,350:PRINT U 
SING "+######";sc; 

1130 IF z2<>0 OR ecke<>0 THEN RETURN 
1140 sixz=0:siyz=0 

1150 IF (INKEY(1)<>-1 OR JOY(0)=8 OR JOY 
(0)=9 OR JOY(0)=10) AND TEST(sxn+16,syn) 
=0 AND siy<>O THEN z2=2:sixz=16:IF siy=l 
6 THEN sba=sba+1 ELSE sba=sba-1l 

1160 IF (INKEY(2)<>-1 OR JOY(0)=2 OR JOY 
(0)=6 OR JOY(0O)=10) AND TEST(sxn,syn-16) 
=0 AND six<>0 THEN z2=2:siyz=-16:IF six= 
16 THEN sba=sba+1 ELSE sba=sba-1l 


1170 IF (INKEY(8)<>-1 OR JOY(0)=4 OR JOY » 
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Er Va 


(0)=5 OR JOY(0)=6) AND TEST(sxn-16,syn)= 

0O AND siy<>O THEN z2=2:sixz=-16:IF siy=1 

6 THEN sba=sba-1 ELSE sba=sba+l 

1180 IF (INKEY(O)<>-1 OR JOY(O)=1 OR JOY 
(0)=5 OR JOY(0)=9) AND TEST(sxn,syn+16)= 
0O AND six<>O THEN z2=2:siyz=16:IF six=16 
THEN sba=sba-1 ELSE sba=sbat+1l 

1190 RETURN 

1200 ’ x*% BAHNWECHSEL MONSTER 

1210 IF rba=sba THEN RETURN 

1220 IF rba>sba THEN kl=1 ELSE kl=-1i 
1230 riyz=0:rixz=0 

1240 IF rr=1 THEN riyz=16%*kl 

1250 IF rr=2 THEN rixz=16%*kl 

1260 IF rr=3 THEN riyz=-16*kl 

1270 IF rr=4 THEN rixz=-16*kl 

1280 IF TEST(rxn+trixz,ryn+triyz)=3 THEN z 

m1=21:24=4 

1290 IF TEST(rxntrixz,ryn+triyz)=0 THEN z 
4=4 

1300 IF rr=1 OR rr=3 THEN chma=228 

1310 IF rr=2 OR rr=4 THEN chma=229 

1320 IF z4=4 THEN rba=srba-kl 

1330 RETURN 

1340 ’ xxx RICHTUNGSAENDERUNG SPIELER 
1350 IF TEST(sxn+six,syn+siy)=3 THEN GOT 

oO 1470 

1360 ecke=1 

1370 IF six=16 AND siy=0 THEN six=0:siy= 
-16:RETURN 

1380 IF six=0 AND siy=-16 THEN six=-16:s 
iy=0:RETURN 

1390 IF six=-16 AND siy=0O THEN six=0:siy 
=16:RETURN 

1400 IF six=0O AND siy=16 THEN six=16:siy 
=0:RETURN : 

1410 ’ x%%% RICHTUNGSAENDERUNG MONSTER 
1420 IF TEST(rxn+trix,ryn+riy)=3 THEN zi= 
1:SOUND 1,200,5:RETURN 

1430 IF rix=16 AND riy=0O THEN rix=0:riy= 
16:rr=2:RETURN j 

1440 IF rix=0 AND riy=16 THEN rix=-16:ri 

y=0:rr=1:RETURN 

1450 IF rix=-16 AND riy=0 THEN rix=0:riy 
=-16:rr=4:RETURN 

1460 IF rix=0 AND riy=-16 THEN rix=16:ri 

y=0:rr=3:RETURN 

1470 ’ x%% FALLE UEBERFAHREN 
1480 PLOT 500,500,3 

1490 SOUND 2,100,20:SOUND 2,300,20:SOUND 
2,100,10 

1500 zuf=RND 

1510 tor=tor+l1 

1520 torx(tor)=sxn+six:tory(tor)=syn+siy 
1530 IF siy=O THEN tori(tor)=O ELSE tori 
(tor)=1 

1540 IF siy=O AND zuf<=0.5 THEN MOVE sxn 
+six,syn+16:PRINT CHR$(228);:tory(tor)=s 

yn+16 

1550 IF siy=0O AND zuf>0.5 THEN MOVE sxn+ 

six,syn-16:PRINT CHR$(228);:tory(tor)=sy 

n-16 ; 

1560 IF six=0 AND zuf<=0.5 THEN MOVE sxn 

+16,syn+siy:PRINT CHR$(229);:torx(tor)=s 

xn+16 " 

1570 IF six=0 AND zuf>0.5 THEN MOVE sxn- 


SPIELER 


LISTING 


16,syn+siy:PRINT CHR$(229);:torx(tor)=sx 
n-16 j 
1580 zuf=INT(RND&#12)+i 

1590 TAGOFF 

1600 PEN 3 

1610 LOCATE ax(zuf),ay(zuf):PRINT CHR$(2 
03) 
1620 marx=ax(zuf):mary=ay(zuf) 

1630 TAG 


: 1640 RETURN 


1650 ’ x%*%* NAECHSTER LEVEL 

1660 lev=zlev+t1:liv=liv+l 

1670 FOR n=50 TO 4 STEP-1 

1680 SOUND 2,n#n,55-n,7 

1690 NEXT 

1700 GOSUB 2430 

1710 GOTO 700 

1720 ’ x%%% ZUSSAMMENSTOSS SPIELER-MONSTE 

RR: 

1730 liv=liv-1 

1740 TAGOFF 

1750 PEN 2:LOCATE 28,15:PRINT liv 

1760 TAG 

1770 FOR n=50 TO 130 STEP. 3 

1780 DEG 

1790 SOUND 2,SIN (n)%100+50,5,7 

1800 NEXT 

1810 RETURN 

1820 ’ *%*x% SPIELENDE / HIGHSCORE 

1830 TAGOFF 

1840 PEN 3 

1850 LOCATE 9,4:PRINT USING "+######";sc 
1860 IF sc>h(1) THEN LOCATE 32,4:PRINT U 
SING "+######";sc 

1870 WINDOW SWAP 0,2 

1880 PEN 2° 

1890 CLS 

1900 LOCATE 1,2:IF sc<=h(5) AND sc<800 T 
HEN PRINT " Dies war nicht sehr gut !! 
!" ELSE IF sc<=h(5) THEN PRINT "Das naec 
hste mal mehr GLUECK !!!" 

1910 IF sc<=h(5) THEN GOTO 2050 

1920 IF sc>h(1) THEN PRINT "BRAVO, Sie h 
aben den Rekord gebrochen." ELSE PRINT " 
BRAVO, Sie sind unter den besten 5" 
1930 LOCATE 2,4:PRINT "Ihr NAME ? rare 
1940 LOCATE 2,6:PRINT "Ende: ENTER 
Korrektur: DEL" 

1950 LOCATE 14,4: 

1960 i$=UPPER$(INKEY$):IF i$="" THEN GOT 

O 1960 

1970 SOUND 2,50,10,5 

1980 IF i$=CHR$(13) OR LEN(sc$)>19 THEN 

GOTO 2000 ELSE IF i$=CHR$(127) THEN sc$= 
"":GOTO 1930 

1990 sc$=sc$+i$:PRINT i$;:GOTO 1960 

2000 LOCATE 1,6:PRINT SPACE$(38) 

2010 h(5)=sc:h$(5)=sc$ 

2020 FOR n=4 TO 1 STEP-1 

2030 IF h(n+l)>h(n) THEN zwish(n#+1l):h(n+ 
1)=zh(n):h(n)=zwi:zwi$=h$(n+t1):h$(n+1)=h$ 
(n):h$(n)=zwi$ 

2040 NEXT 

2050 FOR n=1 TO5 


2060 IF sc$=h$(n) AND sc=h(n) THEN PEN 3 
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En 


LISTING 


ELSE PEN 2 

2070 LOCATE 3,5+n%2:PRINT n:LOCATE 5,5+n 
*2:PRINT ".";TAB(8);h$(n);TAB(30); USING 
"+######";h(n) 

2080 NEXT 

2090 PEN 3 

2100 LOCATE 3,18: PRINT "SPIELANLEITUNG - 


-> 'TASTE S" 


2110 


LOCATE 3,19:PRINT "NEUES SPIEL - 


-> beliebige Taste" 


2120 
2130 
2140 


WINDOW SWAP 0,2 
ta$=UPPER$(INKEY$) 
IF ta$="S" THEN GOSUB 3090:GOSUB 30 


90:GOTO 170 


2150 
30 

2160 
2170 
2180 
2190 
2200 


2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
129, 
‚2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
-2420 
2430 
2440 
‚is3 
: 2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 


‚is3a: 
TAGOFF 


MOVE 
DRAW 
DRAW 
DRAW 
DRAW 
MOVE 
DRAW 
DRAW 
DRAW 
DRAW 
MOVE 
DRAW 
DRAW 


IF ta$<>"" THEN RETURN ELSE GOTO 21 
RETURN 

’ x%%% GRUNDINITIALISIERUNG 

pn$="M O NS TE R" 

FOR n=1 TO 5 
h(n)=6000-n%1000:h$(n)="HUS OFT 


NEXT 

WINDOW #1,3,38,7,24 

WINDOW #2,2,39,6,24 

SPEED INK 30,30 

SYMBOL AFTER 224 

SYMBOL 226,0,0,0,0,16,0,0,0 

SYMBOL 227,255,0,0,0,0,0,0,255 
SYMBOL 228,255,0,0,0,0,0,0,255 
SYMBOL 229,129,129,129,129,129,129, 


129 


DIM ax(14),ay(14) 

DIM torx(30),tory(30) 
RESTORE 2380 

FOR n=1 TO 12 

READ ax(n):NEXT 

RESTORE 2400 

FOR: n=1 TO 12 

READ ay(n):NEXT 

DATA 12,33,28,17,36,36,33 
DATA 27,15,10,5,5 

DATA 11,9,9,11,12,18,21,19 
DATA 21,19,18,12 

RETURN 

’ xxx SPIELFELDAUFBAU 

INK 0,1s0:INK 1,is1:INK 2,is2: INK 3 
:BORDER O0 


CLS 

PEN 1 

0,398 
638,398,1 
638,0 
0,0 
0,398 
8,390 
630,390 
630,362 
8,362 
8,390 
8,354 
630,354 
630,330 
8,330 
8,354 


DRAW 
DRAW 


2630 
2640 
2650 
2660 
2670 
2680 
2690 


nV 


MOVE 
DRAW 
DRAW 
DRAW 8,8 

DRAW 8,322 

LOCATE 11,2:PRINT pn$ 
LOCATE 3,4:PRINT "SCORE: " 


8,322 
630,322 
630,8 


;: PRINT US 


ING "+######" sc 


2700 


LOCATE 23,4:PRINT "HI-SCORE:"; :PRIN 


T USING "+######";h(1) 


2710 
2720 
2730 


ran=143 
PEN #1,2 
PRINT #1,STRING$(252,CHR$(226));STR 


ING$(252,CHR$(226)) ;STRING$(108,CHR$ (226 


FOR a=0 TO 8 STEP 2 


‘FOR b=z2+a TO 39-a 


LOCATE b,6+a: PRINT CHR$(ran) 
NEXT 

FOR b=6+a TO 24-a 

LOCATE 39-a,b: PRINT CHR$(ran) 
NEXT 

FOR b=39-a TO 2+a STEP-1 
LOCATE b,24-a:PRINT CHR$(ran) 
NEXT 

FOR b=24-a TO 6+a STEP -1 
LOCATE 2+a,b:PRINT CHR$(ran) 
NEXT 

NEXT 

b$=STRING$(2,CHR$(226)) 

PEN 2 
LOCATE 
LOCATE 
LOCATE 
LOCATE 


20,8:PRINT b$ 
20,10:PRINT b$ 
20,12:PRINT b$ 
32,15:PRINT STRING$(7,CHR$(2 


LOCATE 
LOCATE 
LOCATE 
LOCATE 


20,18:PRINT 
20,20: PRINT 
20,22:PRINT 
3,15:PRINT STRING$(7,CHR$ (22 
LOCATE 11,15:PRINT "LEVEL:";lev;" 
LOCATE 
PEN .3 

IF marx<>0 THEN LOCATE marx,mary:PR 


22,15:PRINT "LIVES:";1liv 


INT CHR$(203) 


3020 
3030 
3040 
3050 
y(n) 
3060 
3070 
3080 
3090 


. 3100 


3110 
3120 
26 

3130 
3140 
3150 
3160 
3170 
3180 
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TAG 

PLOT 500,500,3 

FOR n=1 TO 30 

‚IF torx(n)<>0 THEN MOVE torx(n),tor 


:PRINT CHR$(tori(n)+t228); 


NEXT 

TAGOFF 

RETURN 

’ .*x%%* MONITOR COLOUR-GREEN 

IF mn$="GREEN " THEN GOTO 3150 
mn$="GREEN " 

INK 0,0:INK 1,26:INK 2,26:INK 3,15, 


is0=0:is1=26:is2=26:is3=15:is3a=26 
RETURN 

mn$="COLOUR" 
is0=-0:is1=2:is2=25:is3=11:is3a=6 
INK 0,2:INK 1,6:INK 2,0:INK 3,15,22 
RETURN 


SchneideyZ 
akt 


TEST 


KNIGHT 
LORE: DA 
HAT DEN 
ENTWICKLER 


SATANISCHE 


MUSE 


GEKÜUSST! 


Häßliche Worte findet 
unser Tester für den 
Programmierer von . 
Knightlore: ein satanisches 
Vergnügen müsse dieser 
gehabt haben. Doch lesen 
Sie selbst 

Eines muß ich vor dem 
Spielbericht ehrlich ge- 
stehen. Ich bin kein 
Freund von Adventure- 
Spielen. Es fehlt mir die 
nötige Geduld Pläne zu 
zeichnen und Lösungswe- 
ge auszuarbeiten, ja 
manchmal kann ich nicht 
einmal der oftmals absur- 
den Phantasie des Pro- 
grammierers folgen. 

Aber jetzt gibt es ein 
Spiel, das mich wohl zum 
Adventure-Freak werden 
läßt. Die rund 40 Kilo- 
byte, die mich dazu brin- 
gen könnten, heißen 
Knight Lore. Wenn ich 
mich recht an meine 
Schulzeit erinnere, heißt 
Knight soviel wie Ritter. 
Die Mühe einer Überset- 
zung hätte ich mir aber 
sparen können. Erstens 
ist weit und breit noch 
kein Ritter aufgetaucht, 
zweitens kann man das 
Spiel wagen ohne das 
Manual durchzulesen. Wer 
es dennoch tut, der er- 
fährt neben nützlichen 
Tips unter anderem, daß 
es sich hierbei um eine 
verlassene Burg handelt, 
dessen einziger Bewohner, 
ein wohl etwas schrulliger 
Zauberer, den einsamen 


Helden von einem unge- 
wöhnlichen Leiden heilen 
könnte. Doch davon 
später. 

Statt des mühsam über- 
setzten Büchsenkrieger 
marschiert also ein khaki- 
gewandeter Dschungel- 
forscher durch das herun- 
tergekommene Gemäuer, 
das den Wunderheiler, den 
man sich wohl als mittel- 
alterlichen Köhnlechner 
vorstellen darf, verbirgt. 
Soweit so gut, und viel- 
fach schon gehabt. Was 


mich letztlich begeistert, 
ist die hervorragende drei- 
dimensionale Grafik. Nicht 
nur die Räume, wahrlich 
kein Standard “Neue 
Heimat‘ ‚sondern auch 
die Hindernisse sind ‚pla- 
stisch dargestellt. Hin und 
wieder können sie umgan- 
gen werden, doch gilt es 
meist einen Gegenstand zu 
erkämpfen, der in der 
nächsten Abteilung zur 
nützlichen Hilfe wird. Da- 
bei bewegt man sich in 
alle vier Richtungen und 
kann zudem seinen For- 
scher mit dem Feuerknopf 
springen lassen. 

Die erste Überraschung 
läßt nicht lange auf sich 
warten. Eben noch von an- 
sprechendem Äußeren, 
wird der Jäger des verlo- 


FA 


24 


L2 


RS: 
\ $ 
RS 


# 


renen Schatzes mit effekt- 
vollem Zappzerapp zum 
Werwolf, was in dieser 
düsteren Umgebung wohl 
zu erwarten war. Schuld 
daran, wie jeder auch nur 
Halbgebildete weiß, ist 
der Vollmond. Dummer- 
weise ist in jeder Nacht 
Vollmond, was denn doch 
etwas verblüfft. Mit sol- 
chen Tücken muß der 
“Schmalspur-Indiana 
Jones“ wohl leben, für 
den Helfer am Joystick 
dagegen ist die Verwand- 
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lung zur Bestie jedesmal 
eine erheiternde Einlage, 
so hervorragend ist sie 
programmiert. 

Der Wechsel zur Nacht 
wird in einem Fenster 
angezeigt. Paßt man nicht 
auf, verwandelt sich die 
Spielfigur just in dem 
Moment, in dem sie alle 
Aufmerksamkeit einer 
tückischen Falle, einem 
unheimlichen Gespenst 
oder einer speerbestück- 
ten Kugel widmen sollte. 
Der Programmierer, der 
sich die Gegner und ma- 
kabre Hindernisse hat 
einfallen lassen, wurde 
von einer satanischen 
Muße geküßt. 

Was immer als Werkzeug 
dienen kann, dem armen 
Männchen, oder auch 
dem Werwolf, die Bytes 
auszublasen, in Knight 
Lore findet es Verwen- 
dung. So ist dann wieder 
mal ein Leben hin, von 
denen man praktischer- 
weise fünf auf den Weg 
mitbekommt. 


AN DIESEM SPIEL 
KOMMT NIEMAND 
VORBEI 


Gegenstände, deren spä- 
tere Verwendung man 
plant, kann man bei Be- 
rührung durch die Leer- 
taste “mitnehmen‘““. Platz 
hat man für drei Hilfs- 
mittel. Sollte das nicht 
reichen, hat man die Mög- 
lichkeit, diese in einem 
anderen Raum zu depo- 
nieren. Der Sound unter- 
stützt recht geschickt das 
ablaufende Spielgesche- 
hen. Es wurde zu meiner 
Freude darauf verzichtet, 
den Spieler stundenlang 
mit der gleichen Tonfolge 
zu malträtieren. 
Über den Reiz eines 
Adventure-Spieles zu 
schreiben, maße ich mir 
aus oben genannten Grün- 
den nicht an. Aber Knight 
Lore besticht durch seine 
Grafik, und wer mal erle- 
ben will, was im CPC 
steckt, kommt an diesem 
Spiel wohl nicht vorbei. 
Ganz nebenbei, die ganze 
Geschichte stammt von 
Ultimate und lag schon 
mal für den Spectrum vor. 
Gert Seidel 


LISTING 


DIESES 
PROGRANM 
HASSEN 


ALLE 


RAUB- 


KOPIERER! 


Wer kennt das Problem 
nicht: Man hat ein gutes 
Programm geschrieben, 
das man gerne verkaufen 
möchte, es aber leider 
nicht wirksam vor Raub- 
kopierern sichern 

kann. 

Ab sofort ist dieses Pro- 
blem aus der Welt ge- 
schafft. 


SCHNEIDER-aktiv veröf- 
fentlicht hier ein Pro- 
gramm, mit dem man 
sich vor Raubkopierern 
schützen kann. 

Die Anwendung des Pro- 


grammes ist ziemlich 
leicht. Man muß als erstes 
das Programm laden und 
dann den Anweisungen 
des Programmes folgen. 
Nachdem man nun das 
Programm geschützt hat, 
wird man nach dem Star- 
ten des geschützten Pro- 
grammes immer seinen 
Copyright-Vermerk be- 
trachten. 
Wichtig: Das Programm 
kann nicht mehr ent- 
schützt werden. Leider 
läuft das Programm nur 
auf Kassette. 

Sascha Basler 


= 


1985 by S. Basler" 


a 
oO 
una 


110 !sse2=22222=2222 


120 CLS:MODE 1 
130 LOCATE 
140 LOCATE 
- MANA 
150 LOCATE 
160 PEN 1 

170 LOCATE 
180 LOCATE 
yS. 


GER" 


Basler" 


COPYRIGHT-MANAGER 


COPYRIGHT 1986 BY S.BASLER 


CLS:MODE O:locate 1,12:?chr$(164) " 
:for a=1 to 700:next 
20 '==2=2=2=2=2=2=2=2=2=2=2=2=== 


1,1:PRINT STRING$(40,154) 
3,3:PRINT'COPYRIGHT 


1,5:PRINT STRING$(40,154) 


1,22:PRINT STRING$(40,154) 
12,23:PRINT CHR$(164)" 


1986 b 


Schneide 
akt 


190 
200 
210 
220 


LOCATE 1,24:PRINT STRING$(40,154) 


230 WINDOW£O,1,40,7,21 

240 PRINT " Ersetzen Sie meinen Namen u 
nd meine" 
250 PRINT 
260 PRINT" 
nen und" 
270 PRINT 
280 PRINT" 
Anfang" 
290 PRINT 
300 PRINT" 
Sie im" 
310 PRINT 
PRINT" 
PRINT 
PRINT 
PEN 14 
EDIT 1 


LOCATE-Werte durch Ihre eige 


loeschen das REM-Zeichen am 


der Zeile 1. Dann geben 


Direktmodus ’GOTO 370’ ein." 


400 ° 
410 CLS 

420 LOCATE 1,3:PRINT " 
bitte das mit dem" 
430 PRINT 
440 PRINT" 
ape ein" 
450 PRINT 
460 PRINT" 
ne be-" 
470 PRINT 
480 PRINT" 
490 


Legen Sie jetzt 


COPYRIGHT zu versehende 


und druecken ’PLAY’ und e 


liebige Taste 
500 ss2332333332373 Eiern 
510 ’= 3. Bildschirmaufbau = 
511 ’= und Cassettenoperation = 
520 "zsz23223222S5 22211 JE EIBEEEBarernsensesss 
530 CLS 

540 LOCATE 1,4:PRINT " 
d geladen ! Sobald" 
550 PRINT 
560 PRINT" 
m er-" 

570 PRINT 
580 PRINT" 
t dem" 

581 PRINT 
590 PRINT" 
RIGHT" 

591 PRINT 
600 PRINT" 


Das Programm wir 


’READY’ auf dem Bildschir 


scheint, 


ist Ihr Programm mi 


nicht loeschbaren COPY 


geschuetzt." 


- 610 CHAIN MERGE "!",10,DELETE 20-610 


DIE NACHSTE 
SCHNEIDER 
AKTIV AM 17.10. 
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ak 


FROSCHRENNE 


Teilnehmen können bis Sie haben keinen Einfluß 
zu 5 Personen. Am An- auf den Rennverlauf. 
fang erhält jede Person Jeder Spieler muß nun 
1000 DM zur Verfügung. auf einen der Frösche 

Es gilt nun, sein Kapital einen frei wählbaren Be- 
durch Wetten auf verschie- trag setzen. 

dene Frösche aufzustok- 
ken. In jeder Runde wer- 
den die Quoten für die 
einzelnen Frösche neu 


der letzte Spieler seine 
Wette abgegeben hat. 
Sowohl die Quoten als 


berechnet. auch der Rennverlauf wer- 
den vom Zufallszahlenge- 
nerator erzeugt. Die Mit- 
100 "xxxxxsxxaeaaaga | SPieler können beides 


nicht beeinflussen. 

Ist das Rennen gelaufen, 
werden die Gewinne (?) 
berechnet. 

Hat eine Person ihr gan- 


110 ’%- Froschrennen * 
120 ’x x 
130 ’%* Version 02 * 
140 Idesasasernnn se x 
150 ’x Copyright * 
160 ’% 1985 * | im weiteren Verlauf nicht 
170 ’x by * 
X 
* 
x 


mehr beachtet. 
180 ’x 


190 ’%x Alexander . 
200 ’% Opaschowski 
210 ’*k-------------- x 
400 FOR N=1 TO 5:READ Fro$(N):NEXT 

410 DATA Kermet,Oskar,Quacker,Red Baron, 
Hopser 

420 SYMBOL 
430 SYMBOL 
440 SYMBOL 
450 SYMBOL 
460 SYMBOL 
470 SYMBOL 
480 SYMBOL 
490 SYMBOL 
500 SYMBOL 
510 SYMBOL 
520 SYMBOL 208,255 

530 LOCATE 13,11:PRINT CHR$(150)STRING$( 
12,154)CHR$(156) 

540 LOCATE 13,12:PRINT CHR$(14A9)CHR$(24) 
"Froschrennen"CHR$(24)CHR$(149) 

550 LOCATE 13,13:PRINT CHR$(147)STRING$ ( 
12,154)CHR$(153) 

560 LOCATE 5,18:PRINT CHR$(164)"1985 by 
Alexander Opaschowski" 

570 LOCATE 39,25:PRINT">>"; 

580 CALL &BB18 

590 ’ 

600 xxx kk 

610 ’%*Anleitungt 

620 ’xxıııııırk 

630 ’ 

640 CLS:PRINT STRING$(5,10)"Am Start sin 
d fuenf Rennfroesche, auf die Sie wett 
en koennen." 

650 PRINT: PRINT"Am Anfang stehen Ihnen 1 
000 DM zur Ver- fuegung. Teilen Sie sich 
das Geld gut ein." 

660 PRINT:PRINT'"Hat eine Person ihr ganz 
es Geld ver- spielt, wird sie im folg 
enden Rennver- lauf nicht mehr beachtet 


" 


AFTER 33 
33,2,7,31,124,252,248,196,118 
34,0,0,2,7,15,62,124,252 
35,228,196,66,32,32,24 
36,0,0,0,0,0,0,3,15 
37,0,0,0,16,56,248,240,192 
38,31,49,50,68,128 

39,128 
40,0,0,0,64,224,242,255,127 
41,94,68,36,2,1 


Das Rennen startet, wenn 
: 730 


zes Geld verspielt, wird sie 


Alexander Opaschowski 


LISTING 


670 PRINT:PRINT"Um ein Demo-Rennen durch 
laufen zu las- sen, geben Sie bei der A 
nzahl der Mit- spieler bitte "CHR$(24)" 
O"CHR$(24)" ein." 

680 PRINT:PRINT"Und nun viel Spass." 

690 LOCATE 39,24:PRINT">>"; 

700 CALL &BB18 

10 ° 

720 ’xxkııııkk 

’xEingabe* 

740 ’xxkkııkk 

750 ’ 

760 CLS:LOCATE 4,12 

770 INPUT"Anzahl der Mitspieler <0-5>: " 
‚Anz 

780 IF Anz<O OR Anz>5 THEN 760 

790 CLS:FOR N=1 TO Anz 

800 LOCATE 1,N%3+3:PRINT N"ter Spieler"; 
:INPUT" ==> ";Name$(N) 

810 IF LEN(Name$(N))>7 THEN LOCATE 1,N%*3 
+3:PRINT SPC(39) :LOCATE 1,N%3+3:PRINT"Na 
me zu lang.":FOR I=1 TO 2000:NEXT:GOTO 8 
00 

820 Ge(N)=1000:NEXT 

830 IF Anz=0 THEN 1250 

840 °’ 

850 ’xııxıııık 

860 ’%*Quotent 

870 ’xaııııık 

880 °’ 

890 CLS:R=0O 

900 FOR N=1 TO 5:D(N)=INT(RND(1)*10+1):R 
=R+D(N) :NEXT 

910 PRINT:PRINT:PRINT"Die Quoten sind:": 
PRINT: PRINT:PRINT"Nr Name Quote" 
920 PRINT:PRINT:FOR N=1 TO 5:D(N)=INT(R* 
10/D(N)+0.5)/10:PRINT N;TAB(5);Fro$(N);T 
AB(14);D(N);TAB(20);": 1"CHR$(10) 

930 NEXT 

940 LOCATE 1,20:PRINT CHR$(24)"Bitte jet 
zt Ihre Wette: "CHR$(24); 

950 FOR N=1 TO Anz:IF Ge(N)=O THEN 1020 
960 LOCATE 1,22:PRINT SPC(40):LOCATE 1,2 
2:PRINT Name$(N)" <Nr, DM>"; 

970 INPUT" ",Ti(N),We(N) 

980 Ti(N)=ROUND(Ti(N)) 

990 IF Ti(N)<1 OR Ti(N)»>5 THEN 960 

1000 IF Ge(N)»>=We(N)THEN 1020 

1010 LOCATE 1,22:PRINT SPC(40);:LOCATE 1 
‚22:PRINT"Sie haben nur noch";Ge(N);"DM. 
":FOR I=1 TO 1000:NEXT:GOTO 960 

1020 NEXT:GOTO 1250 

1030 ’ 

1040 ’xxxıxııııı xxx 

1050 ’%*Rennverlaufk* 

1060 ’xxxkxıkıııııı 

1070 °’ 

1080 Nr=INT(RND(1)%*5+1) 

1090 S1=Spalte(Nr):S2=S1+1l 

1100 Zi1=Zeile(Nr):Z2=Z1-1 

1110 LOCATE S1,Z1:PRINT"£":LOCATE S1,22: 
PRINT CHR$S(34);:FOR I=1 TO 15:NEXT 

1120 LOCATE S1,Z2:PRINT"$";:LOCATE S2,Z2 
:PRINT"%"; 

1130 LOCATE S1,Z1:PRINT"&’" 
25:NEXT 


;:FOR I=1 TO 
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LISTING 


1140 LOCATE S1,Z2:PRINT" 
8)CHR$(8)" "; 

1150 LOCATE S2,Z2:PRINT"(";:LOCATE S2,Z1 
:PRINT")";:FOR I=1 TO 25:NEXT 

1160 LOCATE S2,Z2:PRINT" ";:LOCATE S2,Z1 
:PRINT"!";:FOR I=1 TO 25:NEXT 

1170 FOR I=1 TO 200:NEXT:Spalte(Nr)=S2 
1180 IF Spalte(Nr)<36 THEN 1080 

1190 GOTO 1370 

1200 ’ 
1210 


"CHR$ (10 )CHR$( 


IKKKKKKKKKK 

1220 ’%*Rennbahnt 

1230 ’xxxırıcxıxk 

1240 ’ 

1250 CLS 

1260 T$="%* S TA RT *%*%":Sp=2:GOSUB 131 

0 
1270 
10 
1280 

LS 
1290 INK 3,0:FOR N=3 TO 15 STEP 3:LOCATE 
3,N:PEN 3:PRINT STRING$(36,208);:Spalte 
(N/3)=1:Zeile(N/3)=N:NEXT:PEN 1 

1300 INK 4,10:PEN 4:FOR I=3 TO 15 STEP 3 
:LOCATE 1,I:PRINT"!";:NEXT:SOUND 1,75,12 
7:GOTO 1080 

1310 FOR N=1 TO 15:LOCATE Sp,N+4:PRINT M 
ID$(T$,N,1); :NEXT:RETURN 

1320 ’ 

1330 ’xkKkKkkkkekkckkk 

1340 '’%Wettauswertung* 

1350 'KKKKKKKckkkckikk 

1360 ’ 

1370 SOUND 1,568:MODE 2:MODE 1 

1380 PEN 1 

1390 IF Anz=0O THEN LOCATE 1,12:GOTO 1580 
ELSE PRINT CHR$(24)"Wettauswertung"CHR$ 
(24) i 


T$="%%* Z I EL **&*":Sp=39:GOSUB 13 


WINDOW 3,38,5,20:INK 2,24:PAPER 2:C 


1400 PRINT:PRINT:PRINT Fro$(Nr)" hat gew 
onnen."STRING$(3,10) 
1410 PRINT"Spieler Gewinn Guthaben 


"STRING$(3,10) 

1420 FOR N=1 TO5 

1430 IF Ti(N)=Nr THEN 1470 
-1440 Ge(N)=Ge(N)-We(N) 

1450 We(N)=-We(N) 

1460 GOTO 1490 

1470 We(N)=zWe(N)*D(Nr) 

1480 Ge(N)=Ge(N)+We(N) 

1490 PRINT Name$(N);TAB(12);We(N);TAB(21 
);Ge(N):PRINT 

1500 We(N)=O 

1510 NEXT 

1520 ’ 
1530 xx kkkkkkckkkık 

1540 ’*Noch einmal?* 

1550 ’xkkkkkckkkkckk 

1560 ’ 

1570 LOCATE 1,24 

1580 PRINT"Noch einmal ? <J»><N>" 
1590 A$=UPPER$(INKEY$):IF A$="J" 
=0 THEN 760 
1600 IF A$="J" 
THEN 1590 

1610 INK 1,24:INK 0,1:BORDER 1:MODE 1:PE 
N 1:PAPER 0:SYMBOL AFTER 33 


AND Anz 


THEN 890 ELSE IF A$<>"N" 
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NR. 9/86 SEPTEMBER 


3. Jahrgang -OM 5,50 | ÖS 86 / SAF 5,50 


COMPUTER-TITEL 
AUS DEM VERLAG 


REVUE 


DAS MAGAZIN 
FÜR FREUNDE 
DER KOMPATIBLEN 


DM 5,80/05 49/SFR 5 


EIGENBAU: 
D/A-WANDLER 


VIDEODAT.: 
LISTINGS ge af A Be: is nehe a 
ÄTHERWELLEN 


LISTING 


ak 


10 ’Demo 
20 PEN 1:PAPER 0:BORDER 0:INK 0,0:INK 1,21:MODE 2:PRINT"Numberspeech - Demo" :PRI 
NT: PRINT: PRINT 
30 INPUT "Bitte Zahl eingeben (O=Ende) : ",zahl:zahl$=MID$(STR$(zahl),2) 
40 GOSUB 50000:IF zahl THEN GOTO 30 ELSE END 
50 IF zahl THEN 30 ELSE END 
’ 


weisungen veraendert 
Aufruf des Unterprogramms: GOSUB 50000 


VI NTTITTT THUN TH TTTTTT TUN ITTTTNIT NIT TI TTTTHH I DT IT IT I DI I DI I I HI I HI HI 


60 
70 °. 
10000 FRE TuE Tau Tu Dur Du Dur Dur Dur Dur Bus Bus Dur Du Du DuE Dur Dos Bus Bus Bus Du Bus Bus Dur Dar Dur Dur Dur Dur Bus Bar Das Dur Dur Dur Dur Dur Der Dur Dur Dur Dun Bu Dur Dee BEE DEE Bee Dun Ber BE BE BEE Den Dun Be Be En BE DE DE DE BE Eu De Be Zee | 
10010’ NUMBERSPEECH ö Version 1.1 , 
10020 ’ (c) 1985 by Alwin Ertl i 
10030 °’ : 
10040 °’ Uebergabe: zahl$ enthaelt eine max. neunstellige Zahl ohne fueh- ’ 
10050 ’ rende Leerstellen oder Nullen . x 
10060 ’ Ergebnis: Spricht zahl$ auf dem dk’tronics Sprachsynthesizer aus ’ 
10070 ’ Lokale Variablen: aa$, best$, aa, ii 2 
10080 ’ Nebenwirkungen: Zeiger auf DATA-Befehle werden durch RESTORE-An- ’ 
„.* ’ 
’ ’ 
’ ’ 
’ 


50000 IF VAL(zahl$)=0 THEN RESTORE 50730:GOSUB 50440:RETURN 

50010 IF LEN(zahl$)<4 THEN 50070 

50020 IF LEN(zahl$)<7 THEN 50050 

50030 zahl$=SPACE$ (9-LEN(zahl$))+zahl$:aa$=LEFT$(zahl$,3):IF aa$<>" 1" AND aa$< 

>"001" THEN GOSUB 50080:zahl$=RIGHT$(zahl$,6) ELSE RESTORE 50720:GOSUB 50440:zah 

1$=RIGHT$(zahl$,6):GOTO 50050 

50040 RESTORE 50690:GOSUB 50440 

50050 zahl$=SPACE$(6-LEN(zahl$) )+zahl$:aa$=LEFT$(zahl$,3):IF aa$<>" 1" AND aa$< 

>"001" THEN GOSUB 50080:zahl$=RIGHT$(zahl$,3) ELSE RESTORE 50450:GOSUB 50440:zah 

1$=RIGHT$(zahl$,3) 

50060 IF aa$<>" " AND aa$<>"000" THEN RESTORE 50700:GOSUB 50440 

50070 zahl$=SPACE$(3-LEN(zahl$))+zahl$:aa$=LEFT$(zahl$,3):GOSUB 50080:RETURN 

50080 IF LEFT$(aa$,3)=" " OR LEFT$(aa$,3)="000" THEN 50230 

50090 IF LEFT$(aa$,2)=" " OR LEFT$(aa$,2)="00" THEN best$=RIGHT$(aa$,1):GOSUB 5 

0240:GOSUB 50440:G0TO 50230 

50100 IF LEFT$(aa$,1)=" " OR LEFT$(aa$,1)="0" THEN 50130 

50110 IF LEFT$(aa$,1)="1" THEN RESTORE 50450:GOSUB 50440 ELSE best$=LEFT$(aa$,1) 
:GOSUB 50240:GOSUB 50440 ; 

50120 RESTORE 50550:GOSUB 50440 

50130 IF RIGHT$(aa$,2)="10" THEN RESTORE 50560:GOSUB 50440:GOTO 50230 

50140 IF RIGHT$(aa$,2)="11" THEN RESTORE 50570:GOSUB 50440:G0OTO 50230 

50150 IF RIGHT$(aa$,2)="12" THEN RESTORE 50580:G0SUB 50440:G0TO 50230 

50160 IF RIGHT$(aa$,2)="17" THEN RESTORE 50710:GOSUB 50440:G0OTO 50230 

50170 IF RIGHT$(aa$,2)="00" THEN 50230 

50180 IF MID$(aa$,2,1)="0" AND RIGHT$(aa$,1)<>"0" THEN best$=RIGHT$(aa$,1):GOSUB 
50240:GOSUB 50440:G0TO 50230 

50190 IF RIGHT$(aa$,1)="0" THEN GOSUB 50340:GOSUB 50440:G0TO 50230 

50200 IF RIGHT$(aa$,1)="1" THEN RESTORE 50450:GOSUB 50440 ELSE best$=RIGHT$(aa$, 
1):GOSUB 50240:GOSUB 50440 

50210 IF MID$(aa$,2,1)<>"1" THEN RESTORE 50680:GOSUB 50440 

50220 GOSUB 50340:GOSUB 50440 

50230 RETURN i 

50240 ON VAL(best$) GOTO 50250,50260,50270,50280,50290,50300,50310,50320,50330 

50250 RESTORE 50460:RETURN 

50260 RESTORE 50470:RETURN 

50270 RESTORE 50480:RETURN 

50280 RESTORE 50490:RETURN 

50290 RESTORE 50500:RETURN 

50300 RESTORE 50510:RETURN 

50310 RESTORE 50520:RETURN 

50320 RESTORE 50530 :RETURN 

50330 RESTORE 50540:RETURN 

50340 ON VAL(MID$(aa$,2,1)) GOTO 50350,50360,50370,50380,50390,50400,50410,50420 


80 


LISTING | _Schneider/ 


‚50430 
50350 RESTORE 
50360 RESTORE 
50370 ‚RESTORE 
50380 RESTORE 
50390 RESTORE 
50400 RESTORE 
50410 RESTORE 
50420 RESTORE 
50430 RESTORE 
50440 READ aa: 
85:NEXT ii:IF 
RETURN 
50450 
50460 
50470 
50480 
50490 
50500 
50510 


50590 
50600 
50610 
50620 
50630 
50640 
50650 
50660 
50670 
OUT &F 
aac>O 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


6,11,0. 
6,11,43,0 
13,55,46, 
33.,39,6.,0 
40,60,0 

40,22 .11; 
55,55,7,4 


:RETURN 
: RETURN 
:RETURN 
:RETURN 
: RETURN 
:RETURN 
:RETURN 
:RETURN 
:RETURN 


BFE,aa: FOR ii=1 TO 
THEN 50440 ELSE 


6,0 


40,0 
1,43,0 


akti 


ASCII- 
REPLACE 


Befehlsfolge WHILE 
INKEY$=“ “:WEND 
durch das kürze CALL 
&BB06 ersetzen. Machen 
Sie dem Programm fol- 
gende Angabe: 


Mit diesem Programm 
können Sie in ASCII-Text- 
dateien global beliebige 
Ausdrucke ersetzen. Das 
ist z.B. nützlich, wenn Sie 
in einem BASIC-Pro- 


gramm einen Variablen- Quelldatei: ..... XT 
namen ändern wollen. Zieldatei: ...... EU 
Speichern Sie das Pro- Betätige: N 

gramm mit SAVE “....“,A Ersetze: WHILE INKEYS 
und starten Sie ASCII- =““;WEND 


50520 
50530 
50540 
50550 


DATA 
DATA 
DATA 
DATA 


55,55,19,63,7,11,0 
24,10,13,0 
56,5,11,0 
57,30,11,21,47,17,0 


Replace. 

Auf Wunsch können Sie 
auch jeden Austausch be- 
stätigen, falls Sie nur eine: 
teilweise Umbenennung 


durch: CALL &BB06 


Nachdem das Programm 
gelaufen ist, holen Sie die 
geänderte Version durch 


50560 
50570 
50580 
50590 
50600 
50610 
50620 
50630 
50640 
50650 
50660 
50670 
50680 
50690 
50700 
50710 
50720 
50730 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA. 
DATA 
DATA 
DATA 
DATA 
DATA 


13,55,7,7 
7,45,40,0 
13,55,46, 
13,55,7,7 
13,55,46, 
33,39,6,5 
40,60,17, 
20,30.,11, 
55,55,7,1 
55,55,19, 
24.,1051%;, 
56,5, 11,1 
30,11,17, 
16,12,45, 
13.32.55, 
55,55,19, 


56,30,45, 


NUMBERSPEECH 


Dies ist eine Routine für 
den CPC, die eine maxi- 
mal neunstellige ganze 
Zahl auf Deutsch und im 
Klartext ausspricht — so- 
fern Sie einen dk’tronics- 
Sprachsynthesizer ange- 
schlossen haben. 

Was Sie über den Aufruf 


‚11,0 


23,45,40,0 
1150 
15,11,17,55,12,10,0 
5,12,10,0 
55,12,10,0 
40,17,55,12,10,0 
0,17,55,12,10,0 
9,17,55,12,10,0 
55,12,10,0 
1,58,12:10,0 

) 

12223. 11597:5 1,0 
1311,I750 
9,17,.58.,7,11;50 


6,11,7,7,1,16,12,45,12,23,11,0 


0 


der Routine in eigenen 
Programmen wissen müs- 
sen, steht inden Kommen- 
tarzeilen. Im Demoteil 
des Programms können 
Sie probehalber Zahlen 
eingeben, die danach ge- 
sprochen werden. Die 
Eingabe einer Null been- 
det das Programm. 

Alwin Ertl 


NUTZEN SIE UNSEREN 


KOSTENLOSEN KLEIN- 
ANZEIGEN-SERVICE 
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LOAD“... NEU“ in den 


vornehmen wollen. Ein un 
Speicher. Alwin Ertl 


Beispiel: Sie wollen die 


100 ’ ASCII-REPLACE 

110 ’ (Textstellen in ASCII-Files veraen 
dern) 

120 ’ V 1.0 13/06/1986 

130 ’ by Alwin Ertl " 

140 ’ 

150 INK 0,0:PAPER 0:BORDER 0:INK 1,21:PE 
N 1:MODE 2 

160 WINDOW #1,1,80,1,7:WINDOW #2,1,80,8, 


8:WINDOW #0,1,80,9,25 
170 PAPER #2,1:CLS #2 
180 CLS #1:PRINT#1,"ASCII-REPLACE V 1.0 


190 INPUT #1,"Quelldatei: 
#1,"Zieldatei: ",‚,ziel$ 
200 INPUT #1,"Bestaetigen? J/N: ",b$:b$= 
WPRER&(BEETS(bS, 1) ):IF b$="N" THEN best= 


210 PRINT#1,"Ersetze: ";:LINE INPUT #1,s 
uch$:PRINT#1,"durch: ";:LINE INPUT #1,er 
s$ 

220 quell$=UPPER$(quell$):OPENIN quell$: 
ziel$=UPPER$(ziel$):OPENOUT ziel$ 

230 WHILE NOT EOF:LINE INPUT #9,a$ 

240 z=0:WHILE z<LEN(a$):z=z+1:IF MID$(a$ 
‚Z, LEN(such$) )<>such$ THEN 270 

250 CLS: PRINT: PRINT:PRINT a$:LOCATE 1,3: 
PRINT STRING$(z-1,9);CHR$(24);MID$(a$,z, 
LEN(such$));CHR$(24);:IF best THEN LOCAT 
E #1,1,7:INPUT #1,"Ersetzen? J/N: ",e$:e 
$=UPPER$(LEFT$(e$,1)):IF e$="N" THEN 270 
260 a$=LEFT$(a$,z-1l)+ters$+MID$(a$,z+LEN( 
such$)):z=0 

270 WEND:PRINT#9,a$:WEND 

280 CLOSEIN:CLOSEOUT:MODE 2:END 


"‚quell$:INPUT 


Schneider? 
akt 


SERVICE 


PROTEXT: 


KOM PLETTE 


WORD- 


PROZESSOR 
IM ROM 


Textverarbeitungssysteme für die Schneider- 
Computer gibt es mittlerweile wie Sand am Meer. 
Von den kostenlosen — weil von den Besitzern selbst 
entwickelt und jedem per Listing zugänglich — bis 


hin zu den sogenannten „‚Profiprogrammen‘’, 


die nur 


gegen Bares erhältlich sind. Schneider-aktiv hat dies- 
mal Protext unter die Lupe genommen. 


Die einfachste Form der 
Textverarbeitung be- 
steht darin, den Compu- 
ter lediglich als elektro- 
nische Schreibmaschine 
zu verwenden. Jedoch mit 
zunehmender Erfahrung‘ 
und der richtigen Soft- 
ware werden die An- 
sprüche höher. : 
PROTEXT ist wohl das 
aufwendigste und kom- 
fortabelste Textverarbei- 
tungsprogramm, das man 
in einem Heimcomputer 
vorfindet. Es ist mit einer 
Profi-Software, die Hun- 
derte von Mark kostet, 
vergleichbar und zeichnet 
sich dadurch aus, daß sie 
speziell für den CPC ge- 
schrieben ist und zu einem 
unglaublich niedrigen 
Preis angeboten wird. 
Protext ist zudem sehr 
schnell. Ein Beispiel: 

Das globale Suchen und 
Ersetzen auf einem drei- 
seitigen Dokument erfolgt 
in weniger als | Sekunde. 
Protext ist zudem sehr 
leicht zu bedienen. Da 
sind zum einen die Bild- 
schirmhilfen, dann die 
einfache Funktionsan- 
wahl. Einfach gesagt: 
Ohne besondere Kennt- 


nis der Textverarbeitung 
kann man mit Protext 
sofort arbeiten. 

Protext ermöglicht zu- 
dem einfaches Ausdruk- 
ken mit allen AMSTRAD- 
kompatibeln Druckern. 
Alle Druckervorteile ste- 
hen nach einer Konfigu- 
ration zur Verfügung. 
Kein spezieller Drucker- 
treiber ist notwendig. 


PROTEXT-BEFEHLE: 
Im EDIT Mode zeigt die 


Statuszeile folgendes 

an: 

— den Namen des gerade 
bearbeitenden Files 

— Zeilen-, Spalten- und 
Seitennummer 

— die freien Bytes 

— die augenblicklich ge- 
setzten Tabulatoren 

— Einschaltung auf 
Großschreibung 

— Fehlermeldungen 


Der INSERT- und 


DELAY-Mode ermöglicht: 


— Buchstabenlöschen am 
bzw. vor dem Cursor 
— Löschen eines Wortes 
— Löschen bis zum Ende 
— Löschen/Einsetzen/ 
Einfügen einer Zeile 


Das Programm 
PROTEXT beinhaltet: 


— INSERT-Mode ein/aus 


— Word-wrap Justierung 
ein/aus 

— Zeilenlineal ein/aus 
— Anzeige der Tabula- 
toren 

— Anzeige der Printer- 
codes ein/aus 


Die Druckformatierung 
beinhaltet: 


— Kopf- und Fußzeile 

— Seitenumbruch 

— Seitenlänge 

— Seitennummer 

— Seitenrand 

— Zeilenabstand 

— Controlcodes für den 
Drucker 


Auch für Fremdsprachen 
ist das Programm geeig- 
net. Sieben Sprachen 
können auf dem Bild- 
schirm angezeigt werden. 
Der Cursor kann Buch- 
stabe für Buchstabe, rauf 
und runter, nach links 
und rechts bewegt wer- 
den. Ebenso Wort für 
Wort rechts oder links. 
Beim Scrollen des Tex- 
tes rauf oder runter 

kann der Cursor Zeile 
für Zeile bewegt werden. 
Auch ganze Bildschirm- 
seiten können rauf und 
runter bewegt werden. 
Kommandos für den 
Sprung des Cursors an 
den Anfang oder an das 
Ende des Textes sind vor- 
gesehen. Auch Positions- 
marker sind verfügbar. 
Im Plott-Kommando 
können Blöcke gesetzt 
oder gelöscht werden, fer- 
ner können Blöcke ko- 
piert und umgestellt wer- 
den. Linker Rand und 
rechter Rand können ge- 
setzt werden, Tabulato- 
ren können gesetzt und 
gelöscht werden. Zentrie- 
ren, das Aufteilen von 
Zeilen und Dezimalfor- 
matierung sind weitere 
Vorzüge des Protext- 
Programms. 

Die Druckercodes erlau- 
ben die vollständige und 
leichte Anwendung aller 
Druckervorzüge. Hervor- 
zuheben ist die leichte 
Selbstdefinierung durch 
den Anwender. 
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Such- und Ersetzfunktio- 
nen für das globale Su- 
chen innerhalb eines 
Blocks, Wildcarts, das 
Vorwärtssuchen, das Su- 
chen von ganzen Wörtern, 
das Ersetzen aller oder 
nur der gewünschten Zei- 
chen, das Suchen nach 
Return- oder Tab-Charak- 
teren. 


Print-Optionen beinhal- 
ten das Setzen des linken 
Randes, der Seitenlänge 
und der Seitennummer, 
der Kopf- und Fußzeile, 
der Justierung des Zeilen- 
abstands, des kontinuier- 
lichen Druckens von Sei- 
ten oder des Druckens 
von einer Seite, den Be- 
ginn einer neuen Seite 
usw. 


Folgende Kommandos 
stehen bei Protext zur 
Verfügung: 


LOAD: 

Laden eines neuen Textes 
MERGE: 
Textumwandlung 
SAVE: 

Text sichern 

DOC: 
Dokument-Mode 
PRINTF: 

Absichern als reinen 
ASCII-File 

PROG: 
Programm-Mode 
PRINT: 

Drucken von Text 
PRINTER: 

Laden eines Druckertrei- 
bers 

SETPRINT: 

Einfügen von PRINT- 
Optionen 


'FIND: 


Suchen von Strings 
REPLACE: 
Suchen/Ersetzen von 
Zeichen 

COUNT: 

Zählen von Wörtern 
CAT: 

Anzeigen der abgespei- 
a Files 

MOD 

Ne des Bildschirm- 
modes 

SPEED: 

Setzen der Schreibge- 
schwindigkeit 

CLEAR: 

Löschen eines Textes 
QUIT: 

Beendigung des 
Programms (H.Schmidt) 


TEST 


MAC LIN:DAS 
PROGRAMIERENDE 
PROGRAMM 


Noch wird ‚‚Fräulein Joyce” in erster Linie als Textverarbeitungs- 
system angeschafft. Mehr und mehr Anwender wollen sie jedoch mit 
weiteren Arbeiten beschäftigen. Allein, es fehlt häufig an individueller 
Software. Mac Lin 2 Nucleus verspricht hier Abhilfe. Ob diese 
Software hält, was sie Freiberuflern, Kleinunternehmern und anderen 
Anwendern verspricht, haben wir einem Probelauf unterzogen. 


„Mac Lin 2 Nucleus‘ ist ein soge- 
nanntes Management-Informations- 
system in Gestalt eines Programm- 
generators. Auf den ersten Blick 
fällt das sehr umfangreiche Hand- 
buch auf. Die Dicke des Handbuchs 
reduziert sich jedoch auf annähernd 
260 Seiten, wenn man die mitgelie- 
ferten Planungsblätter und Faltblät- 
ter abrechnet. Auf letzteren ist zur 
ersten Orientierung über Original- 
Bildschirmausdrucke (screen 
dumps) die Erzeugung der Software 
für eine Umsatzsteuervoranmeldung 
bildlich Schritt für Schritt darge- 
stellt. Auch wenn diese Anwendung 
nicht gerade jeden interessiert, einen 
derartigen optischen Überblick über 
die Arbeitsweise einer Software 
sucht man in anderen Handbüchern 
oft vergeblich. 

Ansonsten gilt, was mittlerweile 
selbstverständlich sein sollte: Glie- 
derung entsprechend dem Pro- 
grammablauf, Stichwortverzeichnis, 
Beispiele. 


UMFANGREICHER 
START-MODUL 


„Mac Lin 2 Nucleus“ wird auf 3 
Disketten, jede Seite voll mit Pro- 
grammodulen, ausgeliefert. Der 
Start-Modul befindet sich auf Seite 
l. Mit ihm werden automatisch 
Parameter zur Steuerung der Hard- 
ware (Bildschirm, Funktionstasten, 
Drucker) geladen, die vom Anwen- 
der über den Befehl CMPARAMS 
abgeändert werden können. So 
kann er je nach Maschinentyp fest- 
legen, ob Mac Lin auf einer Joyce 
mit nur einem Laufwerk einschließ- 
lich der RAM-Disk M: oder auf der 
Joyce Plus mit dem Laufwerk B 
arbeiten soll. Preis der hierdurch 
erreichten Flexibilität ist jedoch 
ein etwas umständlicher Start, der 
nicht zuletzt im Vorhandensein 


der ungewöhnlichen RAM-Disk sei- 
nen Grund hat. Nach Eingabe des 
Start-Befehls wird dieses Laufwerk 
nämlich zunächst automatisch ge- 
löscht, dann eine sog. Live-Data- 
Diskette geladen, d.h., eine Disket- 
te, die auf ihren Inhalt abgeprüft 
wird. Sollten dort schon Program- 
me enthalten sein, so wird zu- 
nächst der Inhalt dieser Diskette au- 
tomatisch in die RAM-Disk M ko- 
piert. Erst danach wird wieder die 
Start-Diskette geladen, die nun- 
mehr bis zur Vergabe des Tagesda- 
tums durchstartet. 


FLEXIBLE 
PROGRAMMERZEUGUNG 


Nach dem Start kann der Anwender 


mit der Programmerzeugung los- 
legen. 

Mac Lin 2 Nucleus arbeitet voll me- 
nügesteuert. Die angebotenen Me- 
nüs auf den einzelnen Disketten 
können Punkt für Punkt abgearbei- 
tet werden. Um eine Anwendung, 
z.B. Lagerverwaltung, generieren zu 
können, müssen zunächst die erfor- 
derlichen Dateien definiert werden. 
Nach Einschätzung des Distributors 
liegt hier der eigentliche Schwer- 
punkt der gedanklichen Arbeit des 
Anwenders. Er legt fest, welche 
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akt / 


Felder die einzelnen Dateien ent- 
halten sollen, wo die Schlüssel lie- 
gen und welche Dateien miteinan- 
der verknüpft werden sollen. Unter- 
stützt wird er hierbei durch die Pla- 
nungsblätter des Handbuchs, mit 
deren Hilfe sich jede Datei exakt 
vorplanen läßt. 

Diese Blätter dienen dann als 
Grundlage und brauchen nur noch 
„abgeschrieben‘ zu werden. 

Zu den fertig definierten Dateien 
(z.B. Artikel und Lagerbuchhaltung) 
generiert Mac Lin 2 Nucleus nach 
entsprechender Anwahl das erste 
Programm ‚‚Dateierzeugung“. 


SCHNELL UND 
FEHLERFREI 


Der Anwender hat nun die Qual der 
Wahl, welches der zur Verfügung 
stehenden Programme er zuerst er- 
zeugen will. Vom Dateiverwal- 
tungsprogramm (hier Eingabepro- 
gramm genannt) über den Datei- 
druck, Etikettendruck und Selek- 
tierdruck für Listen bis zum Formu- 
lardruck für ein- und mehrseitige 
Schreiben oder Rechnungen er- 
zeugt Mac Lin 2 Nucleus alle Pro- 
gramme automatisch mit Menü- 
steuerung und allem, was sonst 
noch zu einer Software gehört. Am 
Beispiel unserer Lagerverwaltung 
lassen sich also Eingabeprogramme 
für die Dateien, Drucklisten mit 
Berechnung der aktuellen Lager- 
werte, Lieferscheine und Rechnun- 
gen erzeugen. 

Dabei gewöhnt sich der Anwender 
schnell an das im Prinzip für alle 
Programme gleich geltende 
Schema: Anwendung auswählen, 
Datei auswählen, Felder auswäh- 
len. Ist diese Auswahl ereldigt, gibt 
Mac Lin 2 Nucleus Testbilder oder 
Testdrucke aus, die als Grundlage 
für eine individuelle Gestaltung der 
Eingabemasken oder Ausdrucke 
dienen. 


Bitte lesen Sie weiter auf Seite 95 


Schneider/ 
Va 


BÖRSE 


SCHNEIDER 


Programme aus Eigenentwick- 
lung für alle CPC’s bei: 
Friedrich Neuper, 8473 
Pfreimd, Postfach 72, Einfach 
Gratisinfo anfordern 

50 eigene Programme ab 2,— 
DM für CPC. Liste anfordern 
R. Höger, Friedrichstr. 9, 
7317 Wendlingen 


RITTY (Funkfernschreiben) 
für alle CPC’s 
ASCII v. Baudot bis 300 Baud 
Auch andere Afu-Software 
bei: S. Peim, Friedrichsruher 
str. 32, 1000 Berlin 33 


Aufrüstkit für VORTEX SP 
64 -SP 320 DM 99,— 

R. Willner, Breslauerstr. 38, 
6114 Groß-Umstad, Telefon 
06078/4446 


Suche Mailbox-Programm _ 
(CPC 464) Tel. 09152/8373 


Texpack f. SCHNEIDER 464 
mit Handbuch, 4 Wochen alt, 
für DM 120,- zu verkaufen. 
Tel. 06195/61117 


Gesucht für Schneider CPC 
6128 auf Disk Spiele jeder 
Art für Kinder ab 12 Jahre. 
Klaus Möller, Weltistr. 33, 
8000 München 71, Tel. 
797407. 


Verkaufe 
NLQ 401 
Traktor 
Druckerständer 
Lichtgriffel 
komplett DM 600,— VB 
Tel. 06787/1299 


CPC464 grün 3 Monate alt 
für nur 490,— DM abzugeben 
Tel. 0651/10809 


Programm-Generator für 
BASIC 
EGE, Postfach 83, 
A-6961 Wolfurt 


Handbuch für Datenfernüber- 
tragung mit vielen Tricks 
gegen Unkosten Info 80 Pf 
Leonhardt, Auf der Reide 39, 
4000 Düsseldorf 


STOCKMASTER II 
Das CPC-Programm für echte 
Börsengewinne. Diskette nur 
485,— DM/SFr. Beschreibung 
‘ca02’ anfordern bei: Töngi 
Computer-Praxis, Aspeltstr. 4 
D-6500 Mainz, für die Schweiz 
Denton Consultants AG, Au- 
wisstr. 17, CH-8127 Forch/ 
Zürich 


Welcher Computer-Freak 
verk. mir selbstgeschriebene 
Programme jeder Art? Suche 
auch gebrauchten CPC + Mo- 
nitor. Schreibt an: Anne 
Kubiki, Sebastianstr. 6, 
8315 Geisenhausen 


VERK.CPC 464, DD1, NLQ 
401, TexPack, TURBO PAS- 
CAL, compl. 2.200 DM, CPC 
664 1200,-; Telefon 09131/ 
25873 


CPC 664 Hard- & Software 
z.B.: Painter II, Mailbox, 
Tank Arcade, V24 Multi 
Port. Info gegen 2,50 DM: 
Ruhr, Montzstr. 28, 

4048 Grevenbroich 


NEU IN 5470 ANDERNACH 
Schneider Hard- und Soft- 
ware z.B. 3°“ Disk nur DM 9,50, 
5,25‘ Disk 10 St. DM 19 95. 
COMPUTER-CORNER, 

Tel. 02632-43119 


Lern- u. Trainingsprogramme: 
Schulfächer, Konzentrations- 
u. Verhaltenstraining Liste 
anfordern: Dr. Kolb, Bergstr. 
34, 6900 Heidelberg, Tel. 
06221/474711 


CPC 464, Grün, Joy, div 
Programme, Literatur wg. 
System-Änd ‚7 Mon.alt. 

5 Mon Garantie VB DM 600,— 
Tel 02233/45566 

Verkaufe: Adreßverwaltung 
und Stundenplanprogramm 
aus Eigenentwicklung. Kom- 
fortable Menueführung ist 
selbstverständlich. Für alle 
CPCs + NLQ 401. +3“ 

Disc Bestellung mit 50 DM- 
Schein an Udo Sonnenberg, 
Berliner Str. 27, 6500 Mainz 


Tausche Programme für 664. 
Joachim Eibisch, Birkenstr.16, 
8068 Pfaffenhofen 


CA 70 SP + Anw. Progr. für 
CPC. Info-Liste Anf. R. Hoe- 
ger, Friedrichstr. 9, 7317 
Wendlingen 


CPC464 CPC664 CPC6128 
USER! 
Lichtgriffel 
mit Programmen und 
deutscher Anleitung 
nur DM 49, — 
Versand gegen Scheck/Nach- 
nahme. Info gratis! 

Fa. Schißlbauer 
Postfach 1171S 8458 Sulz- 
bach, Tel. 09661/6592 bis 21h 


Top-Preise telef. bestellen bei 
0821/91115 M + K Software 
Gunfright 33 DM / S. Fox Strip 
Poker 32 DM / Bomb Jack 

28 DM, Mission Elevator 

34 DM / Cas. 

M +K Software Volker Mayer 
Römerstädterstraße 2a 

8900 Augsburg 22 


HI-80 (Epson-Plotter)-User 

Kontakt/Programmaustausch 
gesucht. Auer, Spessartstr. 1, 
6987 Külsheim, 09345/6373 


* DRUCKER für CPC * 


GLP (ähnl. NLQ 401) 398,— 
PANASONIC 1080 555,— 
CITIZEN 120 D 555,— 
CMC-CPA 80 GS 555,— 


INFO anfordern von C.V.T. 
Postf. 2106, 5500 Trier 


Ein Gratisinfo über Software 
aus Eigenentwicklung für alle 
Schneider CPC erhalten Sie 
bei Friedrich Neuper, Postf.72, 
8473 Pfreimd. Postkarte ge- 
nügt. 


V24 Interface 
Zweifach V24/RS232 mit 
DC/DC 
Mit Z80A-DART, Timer 
8253 
Für alle CPC. Maße 118x 
62x26 mm : 

a Preis: ab DM 248, — 
Gundermann Mikroelektro- 
nik, Lessingstr 7, 6837 St. 
Leon-Rot, Tel. 06227/52394 


CPC 

Lohn- und Einkommensteuer 

= Super Jahresausgleich 

= Steuerklassenwahl 

= Monatslohnsteuer 

= Jährliche Aktualisierung 

= ohne Neukauf! 
zusammen auf Kassette 60,— 
DM. Info gegen Rückporto: 
Horst IIchen, Niederfelder- 
str. 44, 8072 Manching, Tel. 
08459/1669 


Sämtl. CPC-Bücher v. Data- 
Becker für 50 % Ladenpreis 

+ Porto, Alle Bücher laden- 
neu 

H.-J. Kroll, an der Koppe 73c 
1/20, Tel. (030) 3335432 


** GSS ** CPC VERLAG- 


3er Kassette 


Multidatei mit math. 
Sonderfunktion 
Kalkulation & Graphik 
Statistik mit Graphik 


Programmdatei Disky 
Musikdatei LP 

Film & Videodatei 
Biorhythmus 
Home-Manager 
(Dat/Kalk/Termin) 


DM 89,— — 

DM 79,— DM 69,- 
DM 79,— — 

DM 59,— DM 49,— 
DM 59,— DM 49,— 
DM 59,— DM 49,— 
DM 34,— DM 24,— 
DM 69,— DM 59,- 


Auch 5 1/4“ D. INFO = 0,50 DM Briefmarken 
GSS Verlag, Sportplatzstr. 12, 3552 Wetter 


Suche Grünmonitor GT65. 
Tausche mit original dBase II 
Klimmig 07841/61140 ab 

18 Uhr 07842/3248 


Für alle CPCs-12 Spiele auf 
Kassette DM 20,—- (Disc 30,—) 
Schein/Scheck an: H. Behrend 
Neustadt 3, 3550 Marburg 


Preisgünstige Software aus 
Eigenentwicklung für alle 
Schneider-CPC-Computer 
erhalten Sie bei: Friedrich 
Neuper, Postfach 72, 8473 
Pfreimd — Einfach Gratisinfo 
anfordern 


646/664/6128 Biorhythmus 
Partnervergleich 

= plus I Seite A4 Kriterien 

= TagetGrafik 

= vieles mehr!!! 

T. Schumacher, Ritterstr. 54, 

2120 Lüneburg, Tel. 04131/ 

49880 


 LICHTGRIFFEL 

mit Programm für CPC 
464 oder CPC 664 + CPC 
6128 nur 49,— DM. Ver- 
sand gegen Scheck/Nach- 
nahme. Info gratis! 

Fa. Schißlbauer, Postfach 
11715, 8458 Sulzbach, 
Tel. 09661/6592 bis 21h 


- CPC464 LOTTO -STATISTIK 


Wollten Sie nicht schon im- 
mer alle Ziehungen im Lotto 
untersuchen? Z.B. feststellen, 
welche Gewinnklassen Sie 
erreicht hätten, wenn Sie von 
Anfang an (1955) gespielt 
hätten? Oder IhrSystem einem 
Realtest unterziehen? Mit 
diesem Programm kein Pro- 
blem! Ergebnis mit Gewähr 
in 12 sec (MC)! Kass. 45 ,— 
(E-Scheck oder +NN) Pre. 
kopiert sich auf Disc! Info: 
1,— Briefmarken 

Günter Blatt, 5509 Schillingen 
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Notenverwaltung für die 
Schule 
Berechnet Schnitt 
Noten mit Wichtung 
Noten und Klassenlisten 
Zeugnisnoten 
Druck und Bildschirmaus- 
gabe 
Unkosten Beitrag 50,— DM 
Cass/Disc (Disc einsenden) 
Info (Freiumschlag) 
C. Berhold, Rommelstr. 31, 
8783 Hammelburg 2 


Jedes Original Programm nur 
3,— DM bei: 

M.Schlarmann, Heinrichstr.18 
2843 Dinklage. Liste gegen 
0,50 DM Rückporto Nur auf 
Tape 


Schneider CPC 664/6128 
Steuerberatungssoftware. 
Nur für steuerliche Berufe! 
Information anfordern bei: 
CONCEPTION GmbH, 

2 Hamburg 61 Hubertus- 
weg 14 " 


Professionelles Astrologie 
Programm 
5 Seiten Persönlichkeitsanaly- 
se + Grafik + Aspekt ; 
B. Schuhmacher, Karl-Zeiss- 
Str. 14, 3200 Hildesheim 
Tel 05121/23646 


**  DISKETTEN ** 
Er je 10 Stück nur ne 


3 Zoll ab DM 79,00 
3,5 Zoll ab DM 44,00 
5,25 Zoll ab DM 11,95 


INFO von C.V.T. 
Postf. 2106, 5500 Trier 


COMMODORE 


Stop! Erst hier lesen, dann an- 
rufen!Suche Tauschpartner 
”C64 natürlich”. Nur Topsoft- 
ware. Habe z.B. Super-Cycle, 
10 TH France, World Games 
u.a. Listen an: 

A. Klis, Birkenkamp 5, 4370 
Marl oder 

Tel. 02365/32745 (nach An- 
dreas fragen). 


Suche aile Erweiterungen für C 
16 (64 K vorh.), Serviceunterla- 
gen u. Umbaupläne für Hard- 
ware (einf. alles über C 16). 

A. Eger, Ob.Bogenstr. 4, 6500 
Mainz 25. 


Achtung VC 20 

Suche Drucker für VC 20, Preis 
bis ca. 250 TDM. -E. Jockers, 
Am Langen- 

grund 14, 7640 Kehl-Auen- 
heim. 


BÖRSE 


C128C 128C 128 

Absoluter Neubeginner sucht 
Tips + Tricks zum Einsteigen. 
Kaum eigene Progr. vorhan- 
den. Suche Leute, die mir hel- 
fen können.- O. Wenkenbach, 
Neue Str. 4, 3177 Sassenburg/ 
Stüde. 


Verkaufe Sharp MZ 80064K + 
Datasette. Umfangreiche Lite- 
ratur + Software vorhanden. 
Preis VB. M. Haase, Georg- 
Schip-per-Str. 95 2948 Schor- 
tens 1/Sillenstede 

Tel. 04423/6944. 


Suche für 
Spiele: 
Hektik, Superhirn,‘ Painters, 
Vorsicht Falle, Hangman, Part- 
nerwahl, Panzerschlacht, Sub- 
marine, Gefangen, Golf, 17 + 
4, Kurplot, Monitor, Intelli- 
genztest, Geo-Test, Teacher, 
andere GV-Spiele. Tel. 09607/ 
626. 


COMMODORE 
Printer/Plotter 1520 + Papier + 
4 neue Stifte + Hardcopy (C 64/ 
VC 20) spottbillig für 100 DM. 
Tel.: 0241/165306 


VC-20 folgende 


Suche zuverlässigen Tausch- 
partner für C 64-Spiele (Nur 
auf Cass.)! Schickt mir eure Li- 
sten ! Frank Broll, Bachstr. 12, 
4400 Münster. 


C 16 C 116 Plus/4 

Verkaufe alle Arten von Soft- 
ware (Spiele, Utilities.). Ko- 
piergebühr 1 - 2 DM pro Progr. 
Evtl. Kauf oder Tausch. Liste 
gratis gegen Rückporto! Bei R. 
Siebert, Telgeler Weg 1, 3549 
Volkmarsen. 


#®VERKAUFE* 

Drucker Seikosha S 1000 VC, 
Ende Mai gekauft für 778 DM, 
kaum gebraucht, für 725 DM 
(VB) abzugeben. Noch Ga- 
rantie! 

Tel. 02501/8584 ab 19.00 Uhr. 


Formel 64, Steckmodul für den 
CBM 64, mehr als 60 neue Be- 
fehle, 33 KBROM, 16x schnel- 
lere Floppy, _Centronics- 
Schnittstelle usw. Nur einstek- 
ken in Rechner + Floppy. Kein 
Löten erforderlich! Neupreis 
149 DM, für 119 DM zu ver- 
kaufen. 

Tel. 06152/54520. 


Suche Briefmarken Fehl-Be- 
standlistenprogramm von Mi- 
chel oder ähnl. Bitte anbie-ten. 
Tel. 069/521223. 


Verkaufe C 16 und Sanyo s/w- 
Monitor Type 4112 DM. GRE- 
EN kompl. mit Anschlußkabel 
VB DM 300. - W. Schnitzler, 
Idsteiner-str. 30, 6000 Frank- 
furt 1, T.069/732913. 


VC-20 VC 20 VC 20 

Verkaufe 64K-Erweiterung 
(voll schaltbar orig. Ross). Ha- 
be auch noch einige Spiele und 
Module (orig. Commodore). 
Tel. 04953/352. 


Suche zuverlässigen Tausch- 
partner (Disk + 64) f. Prgs. + 
Anleitungen in D/CH/L/ 
NL/GB etc. Listen bitte an: H. 
Crauser, Postf.0206, 1000 Ber- 
lin 65. 100 % Antw. 


Verkaufe Commodore 64 mit 
vielen Spielen, 3 Joysticks und 
Datenrecorder. CB-Heim-Sta- 
tion mit Antenne, SWR-Meter 
f. 250 DM 

Brauche Gebrauchsanleitung 
für HB-75 P (Fotokopieren). 
Tel. 07361/66193 


Suche !! - Verkauft jemand C- 
64 oder C-128 + Diskettenlauf- 
werk? Alle Preislisten oder 
Adressen an: Mirko Fuchs, 
Aschfelderstr. 9, 8785 Asch- 
feld, alle Briefe werden be- 
antw. Tel. 09350/318 


C-16/116/+4 Brandneuer Soft- 
ware-Versand. Einführungs- 
preise! 130 kommerz.Spiele + 
Anwenderprogr. Kat. gegen 
frank. Freiumschl. von: Softi- 
soft, Blanckenagelweg 9, 4770 
Soest. PS. Die ersten Disks für 
C16 


Bin 128D Neuling 

wer kann mir weiterhelfen ge- 
gen Bezahlung. Tel. 07154 
4878 


Verkaufe Original Data-Bek- 
ker: Datamat - Pascal 64 - Su- 
pergraphik 64 - je 20 DM. Kalk- 
umat - Master - je 30 DM. Tel. 
oder o. schreiben Sie an: M. 
Baumann, Melanderstr. 25, 
4047 Dormagen 5, 02106/46175 


Wersibord + Digidrums, Hard- 
+ Software zus. DM 300,-. 
Golz, Girondelle 54, 

4630 Bochum 


--- Hey, C-16 Besitzer!! --- 
Tausche Listings, Spiele und/ 
oder Progr. (alles Cass.) wie 
Turbo Tape C-16, Cars, Pac- 
Mac, Frog Match, Oil of Texas 
etc. Listen an: M. Wagner, 
Wiesenstr. 16, 

3415 Hattorf, Tel. 05584/1436 - 
bis bald 


Suche Druckerprogr. f. den 
Drucker MPS 801. 

Ang. bitte an: M. Fischer, 
Buschkrugallee 13 (Haus 9), 
1000 Berlin 47 


akt? 


Ka CO FERr CI FR 
Kaufe/Verkaufe/Tausche 
Progr. f. C16. Nur Listings oder 
Kass. Habe auch Club gegrün- 
det und suche Mitglieder. Info 
bei Martin Klein, Mainweg 6, 
6203 Hochheim 


Verkaufe: VC 20 DM 149.-; C 
128D prakt. neu DM 1499,-; 
CBM 8032 + Doppelfloppy 
4040 + Drucker 2022 + Text- 
u. Datei-Prog. DM 1499,-. 
Neuderth, Adolf-Reichwein- 
weg 6, 6097 Treburg 3, 06142/ 
68455 


Verkaufe C-16 Software!!! Vie- 
le Bücher und sehr gute Progr- 
.Kass. billig abzu-geben. Liste 
der Orgi. Progr. anf. bei: 

Karin Stephan, Gerh.- 
Hauptm.-Str. 19, 

2120 Lüneburg 


Suche: Floppy 1541. 1 A Zu- 
stand. Preis max. 200 DM. Su- 
che: Anw. Progr. f. C 116 
Bitte Ang. an: W. Togrund, 
Wilhelmstras-se 10, 4060 Vier- 
sen 1 


ACHTUNG&&#*#ACHTUN- 
G##&KACHTUNG 
Suche PC-Gehäuse von C 


128D, IBM oder so ähnl. Ang. 
bitte an: Andreas Prucha, 
Triplinggasse 6, A-2500 Baden 
bei Wien 


Wer überläßt verarmten Schü- 
ler einen Drucker kostenlos? 
Porto wird von mir übernom- 
men. Der Drucker soll auf dem 
C128 laufen. A. Filmann, Au- 
gust-Bebel-Str. 11, 6454 Bruch- 
köbel 1 


Commodore mini-club, 
Postfach 1314, 4150 Krefeld 29 
Info kostenlos! Kontakte zu 
Computer-Clubs gesucht! 


Verk. leicht defekte Platine 
vom VC-20 

DM 25,-; Tastatur v. VC-20 
DM 25,-; 64er Ausgaben 4/5/6/ 
1984 DM 27,- + Porto. Tausche 
GEO-Hefte 10/76 - 10/82 = 72 
H. + Erstausg. + 8 GEO Spez. 
gegen C64 oder Floppy 1541. 
Tel. 09732/4297 


Suche Anwenderprogr. für C- 
16, (64KB). Verkaufe preis- 
wert Spiele + Anwenderpro- 
gramme (z.T.Spitze). Tausche 
auch. Etzenbach, Am Dorfwei- 
her 18, 5208 Eitorf 


Verkaufe meine originalen In- 
put-64-Kass. von 1-10/85 für 35 
DM. Schreiben o. rufen Sie an: 
Michael Baumann, Meland- 
erstr. 25, 4047 Dormagen 5, 
02106/46175 
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Schneider/ 
Va 


MSX 


Suche für MSX VG 8000 Ko- 
pierprogr. auf Kass. Wo gibt es 
in Wien einen MSX-Club? Bit- 
te schreibt mir: Zagleri, Ro- 
bert, Troststr. 45b 95/24, A- 
1100 Wien 


** Achtung®* 

Verkaufe Antarctic-Adventure 
(Modul) und Chiller (Kass.) für 
je 20 DM !! Schreibt an Chr. 
Schroeter, Dorfstr. 27, 4670 
Lünen. PS. Ich tausche auch 
gegen gleichwertige Spiele. 


Schon mal was von Zakit Wood 
gehört? Oder Jack the Nipper, 
Red Moon, Gun- fright, Jour- 
ney to the centre of the earth, 
Bounder, Turmoil, Sorcery, 
Elidon, Price of Magic, Secret 
Diary of Adrian Mole?? Ich 
hab sie alle. A. Schlattmann, 
Jurastr. 55, CH-4053 Basel, 
Tel.061/353737 (So.mitt). 


Verkaufe meine MSX-Pro- 
gramme. Softwarepaket 1: 
Ghostbusters, Superchess, Oh 
Mummy, Flight - Path 737, 
Chiller für nur 80 DM.- Soft- 
warepaket 2: Rabbit Walk, 
Lift, Pinguin für 20 DM. Anru- 
fe erst ab: 3.8.86. Tel. 02772/ 
42371 


Verkaufe folg. Orig.Module 
und Kass.: Yie ar Kung Fu II, 
Athletic Land, Antarctic Ad- 
venture, Jet Set Willy, Ghost- 
busters, Hero, Zaxxon, River 
Raid! Preis nach Vereinba- 
rung! Tel.04242/70830 M. Gill, 
Ringstr. 5, 2808 Syke 


Hilfe - wer tauscht seine Hand- 
bücher für Disk (z.B. Disk-Ba- 
sic), da ich sie verloren habe, 
gegen 10 gute MS-Spiele wie 
Ninja, Roadfighter, Loderun- 
ner usw. Bitte dringend!!! Tel. 
0621/751229. PS. Spiele auf 
3,9”, 


Verkaufe MSX-Eprom-Pro- 
grammierer Prog/Copy_ aller 
Typen, evlt. Tausch gegen So- 
ny-Floppy, Tel. 04721/36469 


Schreibe MSX Basic Progr. auf 
Wunsch!! Disk o. Cas.! Suche 
Programmideen! Schreibt an: 
Frank Horn, Kutterweg 8, 2400 
Lübeck 1 


Suche Besitzer von Sharp PC- 
1401 bzw. Sharp PC-1402 zum 
Listing (bzw. Progr.- Aus- 
tausch'). Schreibt an: Thomas 
Korne, Dieffierstr. 5, 6630 
Saarlouis 2 


BÖRSE 


Suche Musikprogramme für ei- 
nen ganz normalen MSX-Com- 
puter. Zuschr. an: Dennis 
Schmitz, Auf dem Damm 37, 
4100 Duisburg 12 Suche Floppy 
bis 300 DM. 


Verkaufe YAMAHA CXS5M 
MSX Musik-Computer, incl. 
Netzteil, kleinem Musik-Key- 
board, Composer- und Vo- 
icingsoftware für 1000 DM.- 
Wolfgang Müller, München 
Tel. 089/2722551 


Suche günstigen MSX Floppy. 
Gebote an: Kleinhans, Bicke- 
weg 15, 3548 Arolsen 1 


Blutiger MSX-Anfänger sucht 
geduldigen MSX-Club zwecks 
Tips und Infos. Schreibt an: 
Engl, Christian, Bahn- 
hofstr.54, A-6300 Wörgl 


MSC MSX MXS 

Suche Tauschpartner für MSX- 
Programme. Schickt mir 20 
Progr. (auf Kass.) und Ihr be- 
kommt 30 andere Progr. A. 
Wissenbach, Saalburgstr. 23, 
6242 Kronberg. Bitte Rückpor- 
to beilegen. 


Verkaufe neuen Monitor, grün 
orig. verp. Vorher 275 DM, 
jetzt nur 195 DM. Suche MSX- 
Anwenderprogr. Kaufe o. tau- 
sche; große Programmauswahl. 
Dawedeit, Achim, Auguststr. 
21, 4650 Gelsenkirchen 


Gesucht: Gebr. Sony Hit Bit 
mit Zubehör bis 400 DM. Ang. 
an M. Maas, Kreuznacher Str. 
5, 7000 Stuttgart 50, T.071V/ 
552221 


Verkaufe Pan.CF 2700 (5 
Mon.), Sony Floppy (neu), 
incl. MSX-DOS, 5 Bücher, Da- 
takorder + Kass. nur zus. 950 
DM. Tel. 0201/7100425 


Suche MSX-Club. Bin nur An- 
wender, Habe Floppy + Druk- 
ker, brauche dBASE, Multi- 
text (Cartr), 80-Zeichen-Karte 
f. Panasonic 2700, Wordstar 
(alles Disk. + Eigenanwen- 
dung). E. Graf, Laubenweg 26, 
4300 Essen 1, Tel. 0201/ 
7100425 


MSX-Software Tauschpartner 
gesucht. Sendet Eure Liste an: 
Eugen Brodowski, Waldstr. 
106, 2841 Kellenberg 


MSX-Computer VG 8010 neu- 
wertig (3 Mon.). MSX-Daten- 
recorder, 1 Joystick, div. Spiele 
für 350 DM zu verkaufen. H. 
Känstler, Wienerstr. 27, 6000 
Frankfurt/M 70, Tel. 069/ 
652901 ab 16.00 Uhr 


3,5” Suche und tausche Progr. 
aller Art! Wer hat Lust? 
Schreibt an: Hubert Ladig, So- 
lothurnerstr. 30, 7100 Heil- 
bronn, Tel. 07131/81248 ab 
17.00 Uhr. PS. Suche günstigen 
MSX kompatiblen Drucker. 


Suche MSX-Freaks im Raume 
Luxemburg (Stadt). Zweck: 
Programm-Austausch. Suche 
16 KRAM-Erweiterung. - Ste- 
phane Glange, 20, rue de 
Montfort, L-5355 Oetrange, 
Tel. 358294 


Suche MSX-User zwecks Pro- 
grammaustausch in Bremen! - 
Jens Schröer, Am Huchtinger 
See 23, 2800 Bremen 66 


Suche Disc-Laufwerk für SVI 
728. Ang. an Martin Schuma- 
cher, Bernhard-Falkstr. 9, 4670 
Lünen, Tel. 02306/47422 


Suche das Programm ”Rise Out 
2” und 64K- Modul. Tausch! 
Weiter suche ich Leute zum 
Softwaretausch!- Hannes Weit- 
zenbock, A-36662 Münich- 
reith, Tel. 07413/6107 


Yamaha CX 5, CX 5 II als 
Drumcomputer der Superlati- 
ve! Info/Demo/News gegen 6,- 
DM in Briefmarken von: Lud- 
wig Eilers, Am Zollbaum 8, 
2900 Oldenburg Tel. 0441/ 
591519 


Tausche MSX-Software. Cass. 
A View To A Kill - Hero - 
Punchy - Oh Mummy - Flug- 
simulator 737.- Axel Materne, 
Teichstr. 4, 4902 Bad Salzuflen 
1 


Verk. Sony Hit Bit + Floppy 
HBD-50 + Rec. SDC-5000 + 
Lit. + Philips Drucker + 64K- 
Erw. + Sony Prn-C41 + Crest. 
Graphics + Track-Ball + Soft- 
ware + 6 Disketten. NP 4500 
DM, VP 2900 DM. Tel. 02271/ 
96300, von 16 - 18 Uhr. 


MSX MSX MSX 

Suche MSX-Tauschpartner im 
Kreis Recklinghausen. Um- 
fangreiche Programmsamm- 
lung für 3,5” und Cassette vor- 
handen. Bitte melden bei: W. 
Erdmann, Salentinstr. 300, 
4350 Recklinghausen, Tel. 
02361/33638 


Verkaufe Philips VG-8020 
MSX S 4000,-. Gegenleitner, 
Josef-Keplerstr. 7 19, A-4560 
Kirchdorf, Tel. 07582/43094 , 
17h 


Suche Tauschpartner für MSX- 
Programme. Schickt Eure Liste 
zu Edwin Korsten, Piawostr. 
32, NL-5402 DH Udew 
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Suche Progr. ICHING (Kass. 
o. Listing) nach Da Liu: Nu- 
merdogy of ICHING - ICHU/ 
Sherling: Astrology of 
ICHING - Sam Reifler - Erfah- 
rungsautausch mit seriösem 
ICHING-Kenner (ICHING- 
Comp. Club?) J.R.Van Steen- 
bergen, Wibenaheerd 307, NL- 
9736 PV Gromingen 


! Das Super Game! ** CO- 
BRA #%* 

Das Action-Adventure über 90 
Bildschirmseiten groß, über 14 
Joystikfunktionen ECHTE 
ZWEIKAMPFE gegen Wäch- 
ter und eine ganze Menge 
mehr. Kostenlos Info bei R. 
Toonen, Postf. 31, 4178 Keve- 
laer 1 


Verkaufe Philips VG 8010 we- 
gen Systemwechsel 2 Monate 
alt, Preisvorstellung 350 DM. 
R. Patra, Tel. 04307/6089 


Fr 1200 Sfr. 6 Monate alten 
Xpress von Spectravideo inkl 
Sony Farbmonitor. Tel. CH 
074/31302 


Verkaufe SV1-328 für 200 DM. 
Tel. 04825/8847 


Suche MSX-Software. Sendet 
Eure Liste an Chr.Kriete, Ga- 
gelstr. 1, 2840 Diepholz 1 


Sony Hit Bit, Laufwerk, 10 
Disks, 2 Joy-sticks, 4 Steckmo- 
dule, Softwares, techn. Unter- 
lagen, Data Becker Floppy- 
Buch zus. 945 DM. Tel. 02234/ 
74090 


Suche für SVI-328, 80 Zeichen/ 
RS 232 Karte. Ang. an B. Ku- 
jawski, Reeseberg 1759, 2100 
Hamburg 90 


Tausche Spiele auf 3,5” Disk! 
Sende Deine Liste an: F. 
Lerch, Ringstr. 9, CH-4455 
Zunzgen. Bin über jede Anfra- 
ge erfreut. Gebe sicher Ant- 
wort! 


Suche SVI 707.- Ang. an: M. 
Wix, Am Büter 26, 4600 Dort- 
mund 30 


Biete an MSX-Software. Kauf 
oder Tausch (Cass./Disk.)- 
H.v.d.Heuy, Michiel de Ruy- 
terstr. 5, NL-5031 KE Boxmeer 


Suche Tauschpartner für MSX- 
Progr. W.Rijke, Prof.-Buys- 
laan 72, NL-3741 DD Baarn 


Suche Spectravideo 
"XPRESS” oder Sanyo MPC64 
mit 5,25” Disc-Station zu kau- 
fen. Ang. schriftl. oder tel. 
02227464. Stefan Hlawenka, 
Simmeringer Hauptstr. 145/8, 
A-1110 Wien 
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DISC MECHANIC 464/664/6128 Diskette DM 69,- 


Disc Mechanic ist das Disketten-Utility Programm, das jeder Schneider Besitzer haben sollte. Disc Mechanic ermöglicht das 
Formatieren und Kopieren von Disketten bis zu 42 Tracks. Dabei werden neue Diskettenformate, die als Kopierschutz 
dienen, mitkopiert. Mit dem eingebauten Diskettenmonitor können Sie ihre Disketten "unter die Lupe nehmen" und 
Änderungen vornehmen. Löschen, Umbenennen sowie das Zurückholen von bereits gelöschten Files ist extrem komfortabel. 
Belegte und nicht belegte Sectoren werden graphisch angezeigt. In den wichtigsten Funktionen ist ein Ausdruck des 
Bildschirms auf einen Drucker möglich. Auf der gelieferten Diskette befinden sich weiter zwei Programme, SPEEDKIT und 
ZERODISC, mit denen Sie Ihre Floppy um ca. 20% schneller machen können. Mit ZERODISC lassen sich versteckte und 
unformatierte Tracks innerhalb weniger Sekunden auffinden. Disc Mechanic arbeitet auch mit zwei Laufwerken. Deutsche 
Anleitung. Bei Bestellung Computertyp angeben. Wir weisen ausdrücklich darauf hin, daß nach dem Urhebergesetz (UrhG) 


die Vervielfältigung eines Programms für die Datenverarbeitung oder wesentlicher Teile davon ohne ausdrückliche 
Einwilligung des Berechtigten verboten ist. 


TELE-COM 464/664/6128 Diskette DM 69,- 


TELE-COM 464/664/6128 ist ein Terminalprogramm zur Datenfernübertragung (DFÜ) über die Schneider RS232 
Schnittstelle, das seinesgleichen sucht. Es verfügt über Pulldown-Menues sowie professionelle Fenstertechnik mit 7 
unterschiedlichen Schriften, die im Terminalmodus über ESC-Codes angesteuert werden können; wahlweise deutscher oder 
amerikanischer Zeichensatz, Mitprotokollierung auf Drucker möglich; 50 bis 1200 Baud werden unterstützt, 5 bis 8 
Datenbits, 1 oder 2 Stopbits, Umschaltung zwischen Voll- und Halbduplex, keine Parität, ODD oder EVEN, Up- und 
Download möglich; bei Upload Übertragungsgeschwindigkeit drosselbar, Up- und Download wahlweise in ASCII oder in 
XMODEM (mit XMODEM können Bilder und Binärprogramme übertragen werden), Funktionstastenbelegung möglich; 
Online-Uhr (zeigt die Länge der Verbindung in Stunden, Minuten und Sekunden an), Farbeinstellung möglich. Deutsche 
Anleitung. Sie erhalten beim Kauf dieses Programms ein kostenloses Paßwort für unsere Mailbox. 


AKUSTIKKOPPLER Dataphon s21d | DM_269,- 
SCHNEIDER RS232 SCHNITTSTELLE (oro 454,664) DM_148,- 
SCHNEIDER RS232 SCHNITTSTELLE (cPc 6128) DM_178,- 
VERBINDUNGSKABEL nataphon 214 und RS232 Schnittstelle DM _47,- 

AKUSTIKKOPPLER-PAKET (cPc 464,664) DM_489,- 


% RS232 Schnittstelle, & Anschlußkabel, & Akustikkoppler, & TELE-COM 464/664/6128 


AKUSTIKKOPPLER-PAKET (cPc 6128) DM_519,- 
% RS232 Schnittstelle, & Anschlußkabel, & Akustikkoppler, & TELE-COM 464/664/6128 


Versand per Nachnahme oder Vorausscheck zzgl. DM 8,- Versandkosten 
TELEFONISCHE BESTELLUNGEN MÖGLICH 


GIGGE ELECTRONICS 


Abt. 9SA - Schneefernerring 4 - 8500 Nürnberg 50 
HOTLINE bis 20 Uhr - Tel. 0911/84244 
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TIı99/4 


TI-Computer Benutzer Club 
Schweiz, Postfach 322, CH- 
4528 Zuchwil - 
Mitgl. 300 TI99Y/4A Besitzer, 
unterteilt in 5 Sektionen. Du 
erhälst weitere Infos! Fordere 
sie an mit einer Postkarte! 
Gruß Euer TILI 


"Verkaufe meine voll funk- 
tionsf. Zweitkonsole + Netzteil 
für 60 DM. Verkaufe auch 
Progr. nur 10 DM. Bitte mel- 
den bei: A. Scholz, Londoner 


Ring 6, 6700 Ludwigshaven, 


Tel. 0621/666424 


TI99/4A Ext-B 32K, TI-Spiele 
1+2, Bücher Cass./Module/ 
Schaltpläne/Rec./Zubehör. 
VB 510,--, Tel. 0231/391541 ab 
20.00 Uhr 


TI9Y/4A + Rec. + Module: 
Schach, Othello 

Datenverw. + Lit. 499 DM. . 
Tel. 02247/2611, R. Lehmann 


Verkaufe TI-System: 

Konsole 110 DM; Ex.Basic 140 
DM; Minimem 130 DM; E/A 
m.dt.Handb. 170 DM; Box, 
Contr., Disk nur kompl. 650 
DM; 32K-Karte 200 DM; 
RS232/Centr.-K 200 DM. 

C. Hasselkuss, Zaunkönigweg 
5, 4630 Bochum, Tel. 0234/ 
311411 


Verkaufe: 32 K Intern Origal 
TI 200 DM. 

Module: Ext. Basic (TI) 100 
DM; Mini Memory 100 DM, 
TI-Writer 200 DM; Schach- 
meister 40 DM; Buchungsjour- 
nal (0.Anl.) 60 DM; Pers. Rec. 
Keeping + Pers. Rep. Gen. 80 
DM; Disk Manager 2 DM 40, 
Par 

sec 30 DM, Invarders 30 DM. 
Bücher: 99 Spez. 1-20 DM; TI 
Basic/Exbasic für A/F 15 DM; 
Prog. f. den TI (Heigerm.) 15 
DM.- Erich Niedergriese, Ro- 
enselstr.9 5800 Hagen 7, Tel. 
02331/402220. PS. Gibts in Ha- 
gen keine TWVUser? Mel- 
d.Euch. 


Steckbrief: 


BÖRSE 


TI-User möchte Enterpr. + B. 
Rogers nicht nur spielen, son- 


“A dern sehen! Wer kann mir in 


V2000 Folgen von Satl aufneh- 
men? Zahle Cass + Bonus, nur 
schrift. Anfr./Ang. an: P. 
Schmitz, Am Zehnthof 4, 5480 
Remagen 4 


TI99/4A Box, RS232, 32K, 
Lw., XB, TI-Writer, Statistik, 
Pers. Kep., Pers. Gen., Disk- 


Manager, viel Softw., evtl. 
auch Drucker VP: Gegen 
Höchstgebot! 


Tägl. ab 18.00 Uhr, Tel. 09123/ 
12249 


Ex-Box + Disk-Cont. + 
Laufw. int. + Laufw. Ext. + 
Disk-Manager 2 + RS232 Kar- 
te + Kabel RS232 -Centr. + 
Othello + Demolition Div. + 
Alien Add. + Yatzee für 2000 
DM. Ext.Basic 120 DM, 32K- 
RAM Karte Php1260 DM 
250.-. Samstag 17-18 h 

Tel. 05603/2374 


Verk. TI99/4A, P-Box, 32K, 
Laufw., Contr., RS232 m. Ka- 
bel, X-Basic, E/A, Writer, 
Schach, Advent., Invader, 
Munchman, K-Rek., div. Pr. u. 
Spiele auf Disk u. Kas., 
Zeitschr. u. Bücher VB 1200,-, 
auch einz. Tel. 0431/563724 


Verkaufe extern: 32K + 
RS232; intern: 32K + Contr. + 
Laufw. Tausche Ass.Progr. 
Verkaufe Module: Soccer, Par- 
sec, Othello Fitness Training, 
Text + Datei, DV + Analyse, 
Buch.-Journal, Early Reading. 
VHS. A. Goering, Tel. 07243/ 
78582 


Verkaufe Superspiele in TI-Ba- 
sic. Olympiß 1984, Dragon- 
Castle, P.-Progr. I + II, Little 
Computer People, Miner, 
Schatzsuche, Flippersim., 
Rambo II, Formel I, Comman- 
der u.v.a.: Liste anf. würde 
auch tauschen. Rolf Crisovan, 
Krebsriedgasse 16, CH-6460 
Altdorf 


Verkaufe: TI9Y/4A 
XBasic 140 DM; 
Minimem 130 DM; E/A n.dt. 
Handb. 170 DM; Box, Contr., 
Disk 650 DM; 32K 200 DM; 
RS232 200 DM; Schach 50 DM; 
Parsec, Othello 50 DM; Joyst. 
35 DM; Bücher, Zeitschr. 100 
DM... C. Hasselkuss, Zaunkö- 
nigweg 5, 4630 Bochum, 0234/ 
311411 


Suche TI-User. Zwecks Softw.- 
Austausch. Nur Kass. an: Mar- 
co Göbel, Ernst-Reuter-Str. 9, 
3550 Marburg 


110 DM; 


Verk. TI99/4A + Ext.Basic + 
Rec. + Kabel + 21 Spiele + 
Handb. + Computerzeitschr. f. 
400 DM, Tel. 0441/601730 


Suche Diskette TI-Artist Ver- 
sion 2.0. Verkaufe MBi-Interfa- 
ce. TI9Y/4AA AWF Centronics. 
Preis 140 DM. T. 06196/42411 


Verkaufe batteriegepufferte 
32K Speichererweiterung zum 
Anschluß seitlich an die Konso- 
le, mit durchgeführtem Bus 
und LED zur Betriebsanzeige, 
für 180 DM. Bei Bedarf dazu 
passendes Assemblersoftware 
(Ramdisk,...). 1 orig. Exten- 
ded Basic Modul für 190 DM 
(alles neuwertig). 

Gregor Lohmann, Bleiberg- 
erstr. 54, 5100 Aachen, Tel. 
0241/86447 


Verk. TI9Y/4A + Ext.Basic + 
Rec. + Kabel + Joyst. + 4 
Fachbücher + Basickurs + 
100 Progr. auf Kass. f. 450 DM. 
B. Dohr, Tel. 02234/81364 


DANK AN ALLE LESER 


Achtung! Biete folgende: 1 Mi- 
niMemory 110 DMd; 1 Music- 
maker 40 DM; 1 Exb-Lern auf 
C. 15 DM; alles zus. 145 DM. 
Thomas Pister-Talstr. 49, 8770 
Lohr 

Tel. 09352/3804 (ab 20.00 Uhr) 


Verkaufe: TI (neu) m. Hand- 
buch --- Suche Ext.Basic IV 
Plus!!! Geb. an: E.D.Donig, 
Frankfurter Str. 15, 3590 Bad 
Wildungen, Tel. 05621/4298 


Hallo TI-User im Großraum 
Stuttgart + Pforzheim!! *%* 
TI-Club Errorfree &* 
Sucht Mitglieder!! Info Tel. 
07042/24415 oder 77629 


Wir danken allen unseren aktiven Lesern, den eifrigen CPC- und PCW-User-Clubs 
und allen unseren freien Mitarbeitern, die am Entstehen dieser Ausgabe von 
„SCHNEIDER-aktiv’’ mitgearbeitet haben. Wir wollen noch besser werden und bitten 
daher alle, die sich in irgendeiner Weise mit dem CPC bzw. dem PCW beschäftigen, 
uns tatkräftig zu unterstützen. Insbesondere die User-Clubs bitten wir, 
„SCHNEIDER-aktiv” als ihr Sprachrohr zu sehen. 
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REHHELPREKHELPRRE 
Du hast mir auf Grund-meiner 
Anzeige die ADV-Lösungen 
geschickt. Als ich Dir nun die 
Disk. zurückschicken wollte, 
fand ich Deine Adr. nicht 
mehr! Bitte melde Dich bei 
mir. C. Jarque, Ludwigsbur- 
ger-Str. 14, 7257 Ditzingen 1, 
T.07156/34941 


FRHACHTUNGFRK 
Suche: Diskettenlaufw. bis 350 
DM (ext.) + 32K-Erweiterung 
mit Centronicsschnitt 

stelle für bis 200 DM. Knut 
Meissner, 

Marsbergerstr. 2, 3549 Diemel- 
stadt 3 


HALLO! Noch Zubehör gefäl- 
lig? Leicht def. TI mit 32K int., 
Exb., Speech-Synt., Progr.- 
Rec. + Kabel, Joyst., Addap., 
Quicksh. Joyball, Module: z.B. 
Pole Posit., Schachm., Hop- 
per, 10 Ass. Progr. auf Kass., 
Software, TI-Rev., Bücher. 
Auch einzeln! 32K ist übrigens 
noch voll in Ordn.! Preise ist 
VHB aber günstig! Michael, 
Tel. 06127/5652 


%:%Texas Instrumens-Fans#* 
- TI-Rev. von der 1. Ausg. - 
einschl. Heft 4/86 + Sonderh. 
1/85 + 2/85 + jede Menge Li- 
stings aus and. Heften kmpl. 
nur 50 DM. 

Tel. 04191/60215 


%=%Einmaligk%* Verkaufe 
TI99 Adventure mit Text + 
Grafik für 15 DM incl. Progr- 
.Disk zuzügl. Porto. Benötigt 
X-Basic, 32K Erw., DSK, Lw. 
Tel. 02621/50713 


* TI9Y/4A * C128 X Texas 
Spiele-Module * zu verk. bis 
zu 60% preiswerter. C128-Mal- 
progr. im 128 Modus in Maschi- 
nenspr. Einbinden der Bilder in 
Basic 7.0 und 2.0 mögl. Tel. 
0208/23299 ab 18.00 Uhr 


Diskettenlaufwerk Slıml. 
5-1/4"DS TEAC 

FD55B 160,— 
Einbausatz 2 Laufwerke 

+ Stecker + Zeichnungen 
für TI 99/4A Box 


komplett 320,— 
GROM-Platine 

+ Gehäuse 22,— 
Module Statistics 20,— 
Module Othello 20,— 
E.L.Levits 

Roggenkamp 3 

2000 Hamburg 60 


040/2994609 wegen 
Urlaub ab 1.9. nur 
schriftlich 


REPORT | Schneider/ 
akt? 


SCHNEIDER PC: 
EIN „ECHTES’” 16- 
BIT-MODELL! 


Die Fakten, auf die man schon lange gespannt war, lauten für das 
Grundmodell: Komplettsystem aus Tastatur, Zentraleinheit, Monitor und 
Maus. Im RAM stehen 512 KB zur Verfügung und als Betriebssystem dient 
MS-DOS 3.2. Quasi als Dreingabe gibt es das Desktop-Programm "'GEM“', 

schon hinlänglich durch den Atari St bekannt. 
Alles zusammen ab 1999,— DM. 


Datei Hilfsmittel Auswahl Muster Schriftart Schriftstil 
———_—— B: \INAGES\PCLSL2G. ING 


Ende 1984 und im Jahr 1985 brach- 
ten Amstrad/Schneider insgesamt 
vier Computer auf den Markt: die 
aus 464, 664 und 6128 bestehende 
CPC-Serie und den PC 8256, kurz 
Joyce genannt. Bei diesem Tempo 
der Neuerscheinungen gab es be- 
reits Anfang des Jahres die ersten 
Gerüchte über ein neues Produkt. 
Logischerweise sollte es ein PC 
sein, entweder IBM-kompatibel 
oder auf der Basis der Motorola 
MC 68000 CPU, die auch im 

Atari, ST oder im Commodore 
Amiga Verwendung findet. Einige 
glaubten, sogar beide Systeme in 
den Entwicklungslabors von 
Amstrad zu wissen. 

Während jedoch andere Firmen 


über ein wenig Vorauswerbung froh 
waren — bestes Beispiel ist Mister 


Tramiels Atari — hüllte sich Amstrad/ 


Schneider in Schweigen. Angeblich 
sollten die Händler nicht verunsi- 
chert werden, wahrscheinlich woll- 
te man jedoch nur dem Joyce eine 
Chance auf dem Markt geben, was 
letztlich nur durch eine radikale 
Preissenkung gelang. 

Die Fachpresse stand dieser Geheim- 
nistuerei natürlich hilflos gegenüber, 
mußte mit Gerüchten und Phan- 
tomzeichnungen auskommen und 
am Schluß war nicht nur der Händ- 
ler, sondern auch der potentielle 
Käufer verunsichert. Es ist sicher 
besser, wenn das Management der 
Türkheimer Computer Division nie 
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genaue Zahlen darüber erhalten 
wird, wieviele CPC-Auf- und Aus- 
steiger dem Atari dem Vorzug 
gegenüber einem Gerücht gaben. 
Mit dem Erscheinen des neuen 
Amstrad PC darf man der Firma 
auch eine etwas glücklichere Hand 
bei der Öffentlichkeitsarbeit wün- 
schen. 


Die Anwender des Amstrad PC wer- 
den aus unterschiedlichen Lagern 
kommen. Da sind zum Einen die 
Aufsteiger aus der CPC-Serie, deren 
Aufgaben gewachsen sind, oder die 
für ihr Hobby eine leistungsfähigere 
Maschine suchen. Der PC hat mit 
der CPC oder der Joyce-Reihe aller- 
dings nichts gemeinsam und die an- 
gesammelte Software ist nutzlos!!! 
Es gibt aber auch Anwender, die 
von den Aufgaben her einen echten 
PC benötigen, bisher jedoch die 
Ausgaben scheuten. Das gute Preis-/ 
Leistungs-Verhältnis des Amstrad 
PC wird manchen Geschäftsmann, 
Studenten oder Freiberufler als 
Neuling in die EDV eintreten las- 
sen. Von der Konzeption her ist 
der ‘“Neue“ durchaus geeignet, bei- 
de Käufergruppen zu befriedigen. 


Entgegen der weitverbreiteten Mei- 
nung baute IBM nicht den ersten 
Personal Computer. Auf dem Markt 
tummelten sich bereits allerhand 
CP/M-Maschinen, und sogar ein 
16-Bit-System war mit dem Sirius 
schon vorhanden. Im Grunde ge- 
nommen erfüllte der erste IBM PC 
nicht einmal die Erwartungen, die 
man in die Fähigkeiten des Industrie- 
giganten gesetzt hatte. Der Arbeits- 
speicher von 64 KB war lächerlich 
gering, die Tastatur unübersichtlich, 
hatte mechanische Mängel und die 
Grundausstattung war lediglich zur 
Textverarbeitung zu gebrauchen. 
Aber IBM war eben “Big Mother 
Blue“ und die Hersteller von Soft- 
ware und Peripheriegeräten waren 
froh, einer Konstruktion folgen zu 
können, dessen Entwickler trotz 
schnellebiger Branche kaum in 
Konkurs zu treiben war. Man faßte 
Vertrauen und es lohnte sich plötz- 
lich, viel Zeit, Geld und Mühe in 
ein Programm zu stecken, da es ja 
nun durch eine weite Verbreitung 
Gewinn abwerfen konnte. Natür- 
lich verbesserte IBM den PC stän- 
dig, ohne jedoch den einmal einge- 
schlagenen Weg zu verlassen. Der 
sogenannte “Industriestandard“ 
war geboren und wurde aufgewer- 


Augen auf beim 
Computerkauf 


Schneider PCW 8256 Joyce 1648, — 
Schneider PCW 8512 Joyce plus 2298, — 
Schneider CPC 464 Keyboard 498,— 
Schneider CPC 664 Keyboard (mit Floppy) 798, — 
Schneider CPC 6128 Keyboard (mit Floppy) 848, — 
Schneider Grünmonitor GT-65 (für alle CPC) 278,— 


Schneider Farbmonitor CTM-644 (für alle CPC) 1198,— 


Schneider CPC 464 mit Grünmonitor 598,— 
Schneider CPC 464 mit Farbmonitor 948,— 
Schneider CPC 664 mit Grünmonitor 948,— 
Schneider CPC 664 mit Farbmonitor 1498, — 
Schneider CPC 6128 mit Grünmonitor 1598, — 
Schneider CPC 6128 mit Farbmonitor 1948,— 
Schneider 3° Floppy-Disk. DDI-1 

mit CP/M und Logo 648, — 
dito, als 2. Laufwerk (ohne CP/M u. Logo) 559,— 
Vortex 5.25" Floppy-Disk. 

F 1-S (Einzelstation) 1198, — 
Vortex 5.25" Floppy-Disk. 

F 1-D (Doppelstation) 1698, — 
Vortex Aufrüstkit A1-S, F1-Sauf E 1-D 498, — 
NEU! Vortex M 1-X 3,5° Zweitlaufwerk 758, — 
NEU! Vortex F 1-X 5,25" Zweitlaufwerk 758,— 
NEU! Vortex M 1-XRS 3,5" Zweitlaufwerk 858, — 
NEU! Vortex F 1-XRS 5,25" Zweitlaufwerk 858,— 
Cumana 3" Zweitlaufwerk 428,— 
Cumana 5,25" Zweitlaufwerk , 598, — 
Datenrecorder Sony für CPC 664/6128 98,— 
3" Zoll Disketten Panasonic 5 Stück 59,— 


ab 10 Stück je 11,50, ab 100 Stück je 10,50 
‚5,25 Disketten 96 tpi für Vortex-Laufwerke 


10 Stück in PVC Hartbox 69,95 


Netzteil MP 1 für Schneider CPC 464 139, — 
Netzteil MP 2 für Schneider CPC 664/6128 159, — 
RAM-Erweiterungen der Fa. Vortex 

Erhebliche Preissenkung la-Qualität 

RAM-Erweiterung SP-256 298,— 
RAM-Erweiterung SP-512 398, — 
RAM-Erweiterung für Joyce auf 512 KB 148,— 
FD-2 (2. Laufwerk für Joyce 1 MB) 698, — 
Bildschirmfilter für Joyce 89,— 
Monitor-Drehfuß, 

Neigungswinkel stufenlos einstellbar 39,95 
Verlängerungskabel 1,5 m für CPC 464 29,95 
dito. für CPC 664 und 6128 34,95 
Quickshot Il mit Autofire 19,95 
Competition Pro 5000 mit Mikroschalter 59,95 
Diskettenbox f. 40 St. 3" Disk. 39,95 
Diskettenbox f. 40 St. 3,5" Disk. 39,95 
Diskettenbox f. 40 St. 5,25" Disk. 49,95 
Diskettenbox f. 100 St. 5,25" Disk. m. Schloß 34,95 


Staubschutzhauben aus weichem Kunstleder 
(Schneidergrau) für CPC 464/664/6128, NLQ 401, 
DDI-1, Monitor Grün/Farbe je 17,95 
komplett für CPC und Monitor 
(bitte Geräte angeben) 
Akustikkoppler S 21d 


I SUPERSOFTWARE FÜR IHREN CPC 3 


Wordstar 3.0 199,— Textomat 9— 
dBase Il 199,— Datamat 9— 
Multiplan 199,— Profi Painter 9— 
Turbo Pascal 3.0 219,— Profimat 9,— 
Turbo Pascal 3.0 mit Mathemat 9— 
Grafikunterst. 279,— Budgetmanager 9,— 
Turbo Tutor 99,— Turbo-L. Busin. 148, — 
Turbo Toolbox 219,— Turbo Graph.T.-B. 219,— 
C-Basic-Compiler 169,— Pascal/MT + 169, — 
Small-C 148,— Turbo-L. Science 189,— 
DR DRAW 199,— DRGRAPH 19, — 
FIBU-Star Plus 298,— Datei-Star %8— 
Star-Mail 98,— Star-Writer 1 198, — 


zum Teil sind die Programme auch für den Joyce 
geeignet, daher bitte Computertyp und 
Diskformat angeben. 


m DRUCKERPARADE MB DRUCKERPARADE I 


Matrixdrucker DMP 2000 Lieferz. auf Anfr. 678,— 
Epson LX-80, 100 Zeich./Sek. 898, — 
Epson FX-85, 

160 Zeich./Sek., 8 KByte Puffer 1248, — 
Epson FX-105, 160 Zeich./Sek. 1698, — 
Epson LQ 800, 200 Zeich./Sec., 24 Nadeln 1698, — 
Epson LQ 1000, 300 Zeich./Sec., 24 Nadeln 2198, — 
Epson Hi-80, 4-Farbplotter, A4 1298, — 
Panasonic KX-P 1080, 100 Zeich./Sek. 698,— 
Panasonic KX-P 1091, 120 Zeich./Sek. 849,— 
Panasonic KX-P 1092, 180 Zeich./Sek. 1098, — 
Panasonic KX-P 1592, Breitformat 1598, — 
Panasonic KX-P 3151, Typenraddrucker 1348, — 
Star NL 10 848, — 
Riteman F +, 105 Zeich./Sek. 998, — 
Druckeranschlußkabel CPC 464/664 49,— 
dito, jedoch 6128 59,— 
Super-Druckerständer 98,— 
Ersatzfarbbänder ab Lager lieferbar 

Endlospapier weiß, 

mit Mikroperforation 500 Blatt 19,95 
dito, jedoch 1000 Blatt 34,95 


dito, jedoch 2000 Blatt 
Alle Geräte mit FTZ und deutschem Handbuch. 


Technische Unterlagen je Gerät gegen 1.50 DM 
in Briefmarken. 

Expressversund speziell in die Schweiz und nach 

Österreich, einfachste Abwicklung der Bezahlung. 


Bachstr. 52 D-7980 Ravensburg 
Telefon 0751/26138 


Schneiden? 
akt 


tet durch die Vielzahl qualitativ 
guter Programme. Trotz hoher 
Preise war IBM schnell der Markt- 
führer. 

Daß man sich danach richten muß, 
haben alle Firmen erfahren, die ver- 
suchten, ein eigenständiges System 
zu pflegen. Der PC Emulator für 
den Atari ST kommt demnächst 


Der neue, zum PC passende Drucker: 
DMP 3000. Er wird sich dem “’Niedrig- 
preisgefüge’’ der Schneider PC-Serie 
anpassen 


der des Commodore Amiga ist be- 
reits im Handel. Sogar die Firma 
Apple, schon immer Eigenbrötler 
des Gewerbes, schaffte sich ein 
Tor zur IBM-Welt. 

Auch alle Billig-Importe aus Fern- 
ost versichern hoch und heilig, 
„vollkompatibel‘“ zu sein, doch 
wurde dieser Begriff schon zu sehr 
strapaziert. Im Idealfall heißt 
“kompatibel‘: Jede für den IBM 
erstellte Software läuft auf dem 
Konkurrenzprodukt und jeder 
Hardwarezusatz des IBM paßt und 
funktioniert dort. 

Was leistet in dieser Hinsicht der 
Amstrad PC? Er ist ja keine skla- 
visch nachvollzogene Konstruktion, 
sondern besitzt zum Wohle des 
Anwenders durchaus ein paar Ei- 
genheiten. Er ist als IBM-kompati- 
bel gepriesen und wir werden ihn 
dazu ausführlich testen. Vorerst 
gilt es jedoch einmal, Alan Shugar 
zu glauben, der in dieser Hinsicht 
keine Probleme sieht. 


DER PROZESSOR 


Wesentliches Merkmal der Kompa- 
tibilität ist der Prozessor. Zwei Fir- 
men — Intel und Motorola — be- 
herrschen den Markt für Personal 
Computer mit unterschiedlichen 
Prozessortypen. Intel-Prozessoren 
arbeiten intern mit 16 Bit, während 
Motorola 32 Bit Datenregister be- 
vorzugt. IBM hat sich beim PC für 
den Intel 8088 entschieden und 
sich damit einige Probleme einge- 
handelt. 

Der 8088 besitzt 16 Bit Register 
und einen 20 Bit breiten Adreß- 
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bus, womit sich ein Speicherbereich 
von | MByte adressieren läßt. Nach- 
teil der Konstruktion ist jedoch der 
Datenbus, der mit nur 8 Bit Breite 
die Daten nur byteweise auf die 
Reise schickt. Dieses Manko besei- 
tigt der 8086, der somit schneller 
arbeitet und das Prädikat “Echter 
16 Bit Prozessor“ verdient. Nicht 
unwesentlich ist auch die Taktfre- 
quenz, d.h. das Tempo, in dem die 
Daten verarbeitet werden. Wäh- 
rend das Original 8088 mit 4.77 
MHZ seinen Dienst verrichtet, 


SCHNELLER ALS 
DAS ORIGINAL! 


schraubte man die Leistung beim 
80186 auf 8 MHz herauf und konn- 
te so zu guter Letzt beim 80286 
durch einen breiteren Adreßbus 
(24 Bit) den adressierbaren Spei- 
cherplatz auf 16 MByte erhöhen. 
Sofern nicht in der Software pro- 
grammiert (welche Firma hätte 
daran schon Interesse?), gibt es in 
der Intel-Gruppe keine Kompatibi- 
litätsprobleme. Der 80286, der 

im IBM AT eingesetzt ist, verarbei- 
tet anstandslos das Futter seiner 
Vorgänger. 


F. Köster, Leiter der Schneider 
Computer-Division und Sprecher der 
Geschäftsleitung 


Motorola ging von Anfang an einen 
anderen Weg und baute Prozesso- 
ren mit 32 Bit Registern. Aber, 
wie auch bei Intel, Adreß- und 
Datenbus sind mitentscheidend. 
Negatives Beispiel sei der Sinclair 
QL, dessen 68008 durch den 20 
Bit breiten Adreßbus zwar I M- 
Byte adressieren kann, dessen Daten- 
bus aber nur auf 8 Bit ausgelegt ist. 
Lesen Sie bitte weiter auf Seite 92 


ANZEIGEN 


HARDWARE 
3" Einbaulaufwerk, 250KB 129,— DM 
3 1/2" Zweitlaufwerk, kompl. 319,— DM 


ANWENDERSOFTWARE alles auf Disk 

SUPERFILE 99,90 DM 

— eigener Maskengenerator 

— Dateiverwaltung bis 27 KB pro Datei 

— wählbar zwischen Grün- und 
Farbmonitor 


UNPROTECT 33,90 DM 
— hebt den Listschutz bei SAVE’ ",P- 
Programmen des CPC 664 und 
CPC 6128 auf. 


UNIVERSALDATEI 69,90 DM 
— Adreßverwaltung, Videoarchiv, Musik- 
archiv und Vereinsverwaltung mit 
Lastschriftausdruck und Mitglieder- 

ausdruck, auch auf Etiketten. 


SPIELE UND FREIZEITSOFTWARE 


Ghost & Goblins (Elite) 
Kass. 28,90 DM 
Rambo II (Ocean) 
Kass. 34,90 DM 
Bomb Jack (Elite) 
Kass. 28,90 DM 
Match Day (Ocean) 
Kass. 34,90 DM 


Disk. 39,90 DM 


Disk. 39,90 DM 


Weitere Spiele, bitte Katalog anfordem 

gegen DM 1,00. Alle Spiele in den mei- 

sten Fällen sofort lieferbar. SOFTWARE- 
AUTOREN gesucht! 

Sie haben bei uns die besten Konditionen. 


Ferdi’s Computer Software 
EDV-Service 
Höftestr. 32, 4400 Münster 
Tel. 0251/619881 


INSERENTEN- 
VERZEICHNIS 


Seite 


Computerversand Trier 84 
CS R. Becker 

SCE Schauties 
Eschkomp 

Ferdi’s 

Gerdes 

GSS-Verlag 

F. Jahnke 

K. Jeschke 
Schießlbauer 
Schmidt-Soft 

SFK 

Cebulj 

Computerei 
elekTronik & Service 
expert Grahle 

Hartl 

R. Heinrich & Sohn 
IPR Klepper 

Leigeb 

mca 

Neuderth 

Reschke Gmbh 
Schebesta & Partner 
Schellhammer 

Soft & Easy 

B.V. Steponaitis 

E. Taubenberger 
Woltermann 


MITARBEITER- 
VERZEICHNIS 


Autoren und freie Mitarbeiter: 
von SCHNEIDER-aktiv in 
alphabetischer Reihenfolge: 
Markus Adamski, Hartmut 
Adelsberger, Steffen Adomeit, 
Sascha Basler, Ulrich Becker, 
Heinrich Behrendt, Reinhard 
Bitter, Wolfgang Buldt, Klaus 
Werner Bues, Gerald Butter- 
wege, Christian Eißner, Alwin 
Ertl, Hendrik Frenzel, Benja- 
min Furch, Wilhelm Fähnd- 
rich, Berthold Freier, Hendrik 
Frenzel, Jens Gerhart, Ralph 
Großmann, Markus Gebhard, 
Uwe Ganter, Hermann Groß, 
Andreas Guhr, Tassilo Hum- 
mel, Bruno Kesel, Heiner 
Kickermann, Martin Kotulla, 
Rüdiger Kronenberg, Herbert 
Langheim, Wolfgang Lemme, 
Udo Maass, Jan-Mirko Mac- 
zewski, Lothar Maluche, 
Hans Machat, Klaus Mehner, 
Heinrich Möller, Andreas 
Müller, Johannes Muschik, 
Olav Pankow, Rainer Pecksen, 
Stefan Ralf Petersen, Richard 
Rastetter, Robert Schaefer, 
Gert Seidel, Stefan Tröster, 
Dr. Thomas Tegeler und viele 
andere. 


SFK elektro GmbH 
Delsterner Str. 23 
5800 Hagen 1 
Tel. 02331/72608 


Neuheit 


— 


Mac Lin für den Joyce 


Mac Lin, das Programm das 
programmiert. Schreiben Sie 
mit Mac Lin Ihre individuellen 
Programme in einer Sprache, 

die Sie kennen: Deutsch. 
Warum wollen Sie immer von 
der Stange kaufen, wenn das 
Erstellen eigener individueller 

Programme so einfach ist, 

dank Mac Lin. 
Mac Lin der Programm- 
generator kostet bei uns 
475,- DM 


Unser Angebot 


Schneider Joyce mit Mac Lin 
2075,— DM 
Schneider Joyce Plus mit 
Mac Lin 2725,— DM 
Händleranfragen erwünscht 
Selbstverständlich können Sie 
alle Geräte aus unserem 
Lieferprogramm auch mieten. 
Katalog gegen Rückporto 
(1,50 DM in Briefmarken) 
Sämtliche Lieferungen 
erfolgen zzgl. Porto und Verp. 


Schmidt- 
Soft 


präsentiert: 


Das universelle Büro 
für den Joyce 8512 
Anwenderfreundlich, Menuegesteuert 

EM Lieferscheine 

EM Rechnungen 

EM Mahnungen 

EB Kunden-Verwaltung 

MB Kreditoren-Verwaltung 
EM Liste drucken 

EM Lagerverwaltung 

EM Zahlungen buchen 

EM Rechnungen buchen 
EB Provisions-Abrechnung 


Alles auf einerDiskette 
für DM 199, — 


Händleranfragen erwünscht 


Schmidt-Soft Handelsgesellschaft mbH 
Blumenstr. 15, 5600 Wuppertal 1, 
Telefon 0202/432030 + 437743 
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** ESCHCOMP-SYSTEM ** 
EINNAHMEJ/UBERSCHUSS- 
RECHNUNG 
sehr komfort. u. bedienungs- 
freundl. Ärzte - Masseure - 
Rechtsanw. — Apoth. - Heilpr. 
bzw. alle freien Berufe. 20 Ein- 
nahmekont., 120 Ausgabe- 
kont. auf Wunsch bis insg. 500 
Konten ko.frei definierbar, 
b.999 Bu/M. Kostenstellen- 
AUSWETLUN .neceeeeeeeeneeenenenen 
Umsatzsteuervoranmeldung ... 
Steuersätze frei def. und. und .. 
1/2 Laufwerke einstellbar ...... 
Info anfordern. 

für SCHNEIDER 464/664/ 
6128 DM 288, — 
für VORTEX LW 
5.25” DM 288, — 
für SCHNEIDER JOYCE 
DM 398, — 
LEHRER - SCHUL- 
VERWALTUNG Progr. für 
CPC 464/664/61287 JOYCE/ 
MS-DOS jetzt für alle Schulen- 
arten geeign. Außergewöhnli- 
ches Gesamtkonzept 
HG SCHOOL SOFT- 
Lehrerverwaltung 
- Klassenleit. u. Fachlehrer- 
Verwalt. 
Schülerdaten - Elterndaten - 
Zeugnisverw. 
Zeugnisschreibung m. indiv. 
Bemerk. 
Notenliste (auch päd. Noten 
mögl.) 
Wahlfächer (auch im Zeug- 
nisdruck) 
Zeugnisformulargenerator z. 
Anpass. an alle Formulare 
(auch Endlosf.) jetzt für alle 
Bundesländer geeign. 
Zeugnisausdruck mit Be- 
merk. (BRD) 
ausf. Soziogramm - Wo- 
chenplaner - Terminkal. 
Qualifiz. Abschluß integr.- 
Schulaufg.übersicht 
Druckprogramm f. alle Be- 
reiche 
Druckercodeanpassung (auch 
Typenraddr.) 
Laufwerkanpassung 
Paukerprogramm-Mathe- 
trainer 


Info anfordern. 
kompl. DM 398, — 
MWSt. 

STAR DRUCKER NL 10/NG 
10 mit Modul nach Wahl DM 
898,— incl. MWSt. dt. Ausf. 
mit FTZ Nr., mit dt. Hand- 
buch SCHNEIDER- 
SOFTWARE LISTE 2,— DM 
in Briefm. 
ESCHCOMP-SYSTEM 

E. Scheithauer 

8391 Perlesreut 

Tel. 08555/1390 
Händleranfragen erwünscht 


incl. 
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Leistungsfähiger ist dagegen der MC 
68000 im Atari ST und im Commo- 
dore Amiga, der mit 24 Bit breitem 
Adreßbus 16 MByte adressieren 
kann und dessen Datenbus 16 Bit 
aufweist. Der “echte‘ 32 Bit 
Prozessor, der MC 68020, war bis- 
lang noch recht teuer und hält nur 


langsam Einzug in den PC-Markt. 


Eigentlich ist GEM fast schon ein 


alter Hut. Der Graphic Environment 
Manager —Der Manager der graphi- 
schen Umgebung — wurde von 
Digital Research unter anderem für 
den Atari ST entwickelt. Daß die 
Firma dabei mit einem Auge auf die 
Benutzerführung des Apple Mc- 
Intosh schielte, soll nicht verschwie- 
gen werden. Die Ähnlichkeiten 
waren verblüffend und sorgten für 
einen Urheberstreit, der inzwischen 
jedoch zu aller Zufriedenheit bei- 
gelegt werden konnte. 

Um Irrtümer zu vermeiden: GEM 
ist kein Betriebssystem. Vielmehr 
ist es ein Programm, das die Arbeit 
mit dem DOS (bei Atari: TOS) 
erleichtern soll. Es dient der Kom- 
munikation mit dem Computer. 

Um Ungeübten den Einstieg zu er- 
leichtern, arbeitet das Programm 
mit kleinen Bildsymbolen, den 
ICON’s, und läßt sich mit einer 
Maus steuern. Die Eingaben über 
Tastatur werden auf ein Minimum 
beschränkt. 

Der Bildschirm simuliert eine 
Schreibtischoberfläche (Desktop) 


die zu Beginn nur einen Papierkorb, 
zwei Diskettenstationen und eine 
Menüzeile mit Oberbegriffen zeigt. 
Die exakten Befehle werden wie 
eine Jalousie nach unten ausge- 
rollt (Pull Down Menü), sobald der 
Oberbegriff in dieser Zeile mit dem 
Zeiger der Maus berührt wird. Akti- 
viert man eine Diskettenstation, so 
wird eines von mehreren möglichen 
“Fenstern‘“ geöffnet, und der Dis- 
ketteninhalt wird durch Icons dar- 
gestellt. Dateien werden dabei als 
Papierstapel symbolisiert und Pro- 


gramme als Quadrat mit Querbalken. 


Der besseren Übersicht zuliebe kann 
man alles auch in Ordner verpak- 
ken, für deren Inhaltsverzeichnis 
dann ein weiteres Fenster zuständig 
ist. 

Die aufgelisteten Files werden mit 
dem Mauspfeil angesteuert und 
durch die Taste angeklickt. Somit 
aktiviert, können sie ausgedruckt, 
gelöscht, umbenannt, in Ordner ko- 
piert oder — sofern es sich um Pro- 
gramme handelt — gestartet werden. 
Besonderer Clou an GEM ist die 
Beweglichkeit der Fenster. Nicht 
nur die Größe läßt sich mit der 
Maus bestimmen, sondern man kann 
sie auch belibig über den Bild- 
schirm schieben. Da die Icons ihre 
Größe beibehalten, ist vielleicht das 
Fenster etwas zu klein gewählt, um 
den gesamten Inhalt einer Diskette 
darzustellen. Mit der Maus ist es 
dann sehr einfach, den Fensterinhalt 
sowohl horizontal als auch vertikal 
zu scrollen, damit die fehlenden 
Files ins Bild kommen. 


92 


Selbstverständlich läßt sich statt der 
Icons auch eine Textdarstellung 
wählen, die dann auch Uhrzeit und 
Datum des Speichervorgangs sowie 
Größe des Files als Information 
preisgibt. 

In den nächsten Ausgaben werden 
wir ausführlich auf die Leistungen 
von GEM eingehen und die Arbeit 
damit beschreiben. 


Digital Research ist auch der Ent- 
wickler des Betriebssystemes DOS 
PLUS. Zur Beruhigung sei erst ein- 
mal verraten, daß es sowohl zum 
CP/M 86 als auch zum PC-DOS 
(MS-DOS) und damit zum IBM 
kompatibel ist. Wer seinen Schneider 
CPC mit CP/M in Betrieb hatte oder 
wer einen Joyce sein Eigen nennt, 
der wird schon nach einer halben 
Stunde vertraut sein. Die Syntax 
gleicht sich im wesentlichen und 
der Anwender kann auch auf die 
bekannten externen Befehle zurück- 
greifen. 

Dem Neuling, und solchen soll der 
Amstrad PC ja auch dienen, wird 
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hier und in den nächsten Ausgaben 
eine kleine Einführung in den Um- 
gang mit DOS gegeben. 

GEM läßt es vielleicht überflüssig 
erscheinen, sich mit der Materie zu 
"befassen, doch bietet der direkte 
Kontakt mit dem Betriebssystem 
eine größere Auswahl an Befehlen 
und Programmen. 


DER UMGANG MIT DOS — I — 
Solange der Verkauf des IBM-kompa- 


akta/ 


tiblen PC’s noch nicht richtig ange- Se ’s N \ ir HAT 
laufen ist, wäre es unsinnig, hier Be- DIFET, a N hen {> 
fehlssequenzen zu schildern, die I 5 E rt Mi v Mi ig‘ g- ala 
nachvollzogen werden müßten. Fa ' MR 


Also packen Sie Ihren PC erst ein- 
mal in Ruhe aus, heute geht es in 
ein paar Zeilen nur um eine Begriffs- 
definition. 

DOS — Disketten Operations 
System — sorgt für den korrekten 
Datenfluß im Computer. Dies reicht 
von der Anpassung der Tastatur an 
den nationalen Zeichensatz bis zur 
Formatierung der Disketten. Für 
den Anwender ist jedoch nur eine 
Reihe von Befehlen und Program- 
men sichtbar. 

Vereinfacht kann man DOS als ei- 


Oben links: 


an der linken 
Rechnerseite. 
Links: Auch das 
kann GEM-Paint: 
Tiger. Oben: Die 
Tastatur im IBM- 
Look. 


Zoom aus dem 
Demoprogramm 
von GEM-Paint, 


(Alle Fotos 
copyright by 
Schneider aktiv) 
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nen Übersetzer (Interpreter) definie- 
ren, der die Eingabe des Anwenders 


Anschlußbuchsen 


Foto auf Seite 89: 


das zum Lieferum- 
fang des PC gehört. 


im Binärcode an die CPU leitet und 
dieser als “Nachschlagewerk “ für 


DATA BECKER 
SCHLÄGT ZU 


Das bekannte Softwarehaus 
Data Becker schlägt beim neuen 
Schneider voll zu. Bereits jetzt, 
noch bevor der PC im Laden 
steht, ist das erste Buch dazu er- 
hältlich. Wenn -— voraussichtlich 
Mitte Oktober — dann die PCs 
bei den Händlern stehen, liegen 
dort auch schon speziell für die 
Architektur des Schneider-GEM 
usw. entwickelte “Lowcost- 
Softwarepakete. Acht werden es 
auf Anhieb sein, darunter Text- 
verarbeitung, Datenbank, Datei- 
verwaltung, Kalkulationspro- 
gramm und mehrere andere. 

Die Preise, so verriet Dr. Achim 
Becker gegenüber Schneider-aktiv, 
werden ein “echter Hammer“. 
(Das erste Programm, Textomat, 
läuft bei uns schon im Test.) 


die exakte Ausführung dient. Stel- 
len Sie sich bitte vor: Sie benutzen 
einen Basic-Computer im Direkt- 
modus. Auch hier sorgt ein Be- 
triebssystem dafür, daß Ihr Befehl 
an der Tastatur empfangen, codiert 
und weitergeleitet wird. Eine 
Systemroutine im ROM hält dann 
das entsprechende Programm (z.B. 
Bildschirm löschen) bereit. 

(Seidel) 
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IHR SCHNEIDER- 


EXPERTE IN ... 


Hard- u. Software - Peripherie - 
Literatur 


Ks COMPUTEREI _ Vv| 


4 Hardware 


Software 


aD LONPUTER DIVISION Literatur 


1 Berlin 44, Karl-Marx-Str. 243 
Tel. 030-684 1098 


Woltermann - Electronic - 
Computer. - Datentechnik 


Ihr Fachhändler für 
Schneider-Computer 


Gute Beratung - qualifizierter Service 
Große Auswahl an Zubehör und 
Fachliteratur 
3414 Hardegsen/Solling 
Lange Str. 27, Tel. 05505/1694 


Computer Reschke GmbH 


Hohe Str. 21a - 4600 Dortmund 1 
BTX 921509 Ruf 0231/1600 14 
Wir führen Schneider 
und Zubehör 
Eigener 48 Std. Service für alle 
Home-Computer und Zubehör 


IHR Computerfachhändler im 
Raum Koblenz/Bonn/Neuwied 


Wir verkaufen nıcht nur, sondern 
wir beraten Sie ausführlich 
Unsere Werkstatt paßt bereits vor- 
handene Hardware an 
Interessante Konditionen für Schü- 
ler, Schulen und Sammelbesteller 
Fordern Sie unsere Preisliste an 


IRP - Computersysteme - KLEPPER 


Wilhelmstr. 27, 5461 St. Katharinen 
Telefon 02645/540 


Modulare Software 


für alle Schneider Rechner 
CPC 464, CPC 664, CPC 6128 
... Textverarbeitung ... Kassenbuch- 
führung ... Rechnungsschreibung .. 
Kundenadreßverwaltung ... Mail- 
merge ... Hotelreservierung ... 


hard-&software 


Ch. Schebesta & Partner 
Frankfurter Str. 70 
6078 Neu-Isenburg 

Telefon 06102/37549 


Computer u. Bürotechnik 
Dipl.-Ing. Neuderth 


Frankfurter Str. 23/Ecke Friedenspl. 


6090 Rüsselsheim 
Tel. 06142-68455 


Beratung, Schulung, 
Programmierung, Software 


Partner führender Be 


Micro-Computermarken COMPUTER 
CENTER 


Sindelfinger Allee 1, 


7030 Böblingen, Tel. 07031/2260 15 


ec RICHARD 


AEINRICH 


& SOHN N 


Winnender Str. 25, 7054 Korb 
Tel. 07151/32513 


ANZEIGEN 


Ihr kompetenter, autorisierter 
Fachhändler 


7480 Sigmaringen ' Rapp-Gässle ° 
Tel. 07571/12483 
Hard- u. Software - Peripherie - Literatur 


Ey Sch Division 


Ihr Fachhändler 
Lindenstr. 3, 7700 Singen 
(Hohentwiel), Tel. 07731/64433 


Ihr kompetenter, autorisierter 
© SCHNEIDER-Fachhändler 


Srhellkammer 


Hard- u. Software, Peripherie, 
Literatur 
Fachkundige Beratung - kompletter 
Service 
7700 Singen, Freibühlstr. 21-25 
Tel. 07731/82020 


expert 
Computer Grahle 
Eisenbahnstr. 33 
7980 Ravensburg 
Telefon 0751/15955 


nn TEST 


Mietkauf - Leasing - Teilzahlung 


Versand frei Haus 


Geb 32,-.. 


Dipl.Ing. FH Peter Leigeb 
8170 Bad Tölz, Markstr. 38 


Wir informieren Sie gerne 
Tel. 08041/9739 


HARTE 


8359 Aidenbach Tel. 08543/880 
8359 Ortenburg Tel. 08542/7866 


Ernst Taubenberger 
Weißenburger Str. 25, 8900 Augsburg 
Händlerangebot erwünscht 
Softwareautoren gesucht 


Alles für den CPC 
Beratung, Hardware, Software, 
Service 


FUNK + ebuli 


8939 Bad Wörishofen 
Weiherweg 4, Tel. 08247/2171 


MAC LIN 


Fortsetzung von Seite 83 


Zur Programmierung wird der 
Joyce mitgelieferte Mallard-Basic- 
Interpreter einbezogen. Mit Hilfe 
dieses Interpreters werden die Pro- 
gramme also im sogenannten 
Quellcode erzeugt, d.h., der An- 
wender kann das Basic-Programm 
listen und weiter editieren. 

ÄAußerst hilfreich ist für diese Arbei- 
ten das Programm ‚Drucken Datei- 
definitionen‘‘, denn über dieses 
Programm werden die Dateidefini- 
tionen mit sämtlichen Basic-Varia- 
blennamen, der Satzlänge und den 
Start-Bytes ausführlich dokumen- 
tiert. Damit ist Mac Lin 2 Nucleus 
eine ideale Hilfe auch für den, der 
sich näher mit dem BASIC beschäf- 
tigen möchte. 

Der Leser sollte nun, wenn er den 
Begriff ‚‚Programmgenerator“ 
hört, nicht glauben, er müsse erst 
langwierig programmieren, um zu 
seiner Software zu kommen. 

Die Produktphilosphie geht laut 
Vertreiber eher in Richtung der be- 
reits seit langem vorhandenen inte- 
grierten Dateiverwaltungssysteme. 
Ähnlich wie bei diesen sollen auch 
mit Mac Lin 2 Nucleus Daten 
schnell nach den unterschiedlich- 
sten Kriterien weiterverarbeitet 
werden können. Der Anwender soll 
also nicht erst eine vollständige Pro- 
grammlösung erzeugen, um den Ge- 
nerator dann weglegen zu können, 
sondern soll Mac Lin 2 Nucleus 
ständig weiterbenutzen. Die Schnel- 
ligkeit, in der dieses System Pro- 
gramme erzeugt, erlaubt diese Ar- 
beitsweise. Interessant ist weiter, 
daß der Anwender jede Programm- 
ebene — es existieren insgesamt 
drei Ebenen — über ein Paßwort 
schützen kann. 


HUNDERTE 
EINSATZMÖGLICHKEITEN 


Anwendungen für Mac Lin 2 
Neucleus gibt es jedenfalls genug. 
Nehmen wir nur unser Beispiel ei- 
ner Lagerverwaltung. Eine Artikel- 
liste, sortiert nach Artikel-Nr. 


Hauben aus reißfestem, weichen 
Kunstleder für alle Computer, 
Drucker, Floppy’s, Monitore ... 
z.B.: für CPC 464 + Monitor 

zusammen DM 30, — 
Info mit Materialmuster 80 Pfg- 
Briefmarken 
Händleranfragen erwünscht! 


B.V. Steponaitis, Obere Str. 30 
8720 Schweinfurt 
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ist ebenso schnell erzeugt wie eine 
Liste, die Artikel nach Einkaufs- 
preisen ordnet. Wem es dann ein- 
fällt, sich eine Liste mit Lagerwer- 
ten und Tagesumsätzen auszu- 
drucken, der erzeugt eben auch die- 
ses Programm. 

So können bei ständigem Einsatz 
von Mac Lin 2 Nucleus Hunderte 
von Programmen entstehen. 

Im Prinzip wird jeder, der ‚Fräulein 
Joyce“ nicht lediglich zur Textver- 
arbeitung benutzt, den Generator 
einsetzen können. Die Einfachheit 
und Klarheit der Bedienung steht 
dem jedenfalls nicht entgegen. 
Allein der Wunsch nach einem 
Compiler für das zum Joyce geliefer- 
te Basic könnte für den Profipro- 
grammierer von Bedeutung sein. 
Der Einzelhändler, Handwerker 
oder Freiberufler jedenfalls erhält, 
selbst wenn er bereits Standardsoft- 
ware einsetzt, ein System, das jede 
gewünschte individuelle Software 
selbsttätig erzeugt. Aber gerade 
auch Schulen können dieses Instru- 
ment als Unterrichtsmittel einset- 
zen, sei es zur Veranschaulichung 
der EDV-Organisation, sei es mit 
dem Quell-Code für den Informa- 
tikunterricht. Eine entsprechende 
Unterrichtsreihe ist in Vorberei- 
tung. 


GUTES PREIS-/ _ 
LEISTUNGSVERHÄLTNIS 


Verglichen mit fertigen Program- 
men zum Einzelpreis von DM 98,— 
und weniger erscheint der Verkaufs- 
preis von DM 475,— recht hoch. 
Wer jedoch fleißig Programme er- 
zeugt, erwirbt damit ein Vielfaches 
dessen, was er einmal investiert 
hat. Auf jeden Fall aber kann der 
Anwender sicher sein, daß sich die 
unterschiedlichsten Programmlösun- 
gen untereinander verstehen. 
Wer also seine Anwendung Lager- 
verwaltung erzeugt, braucht nicht 
zu befürchten, daß die Kundenauf- 
tragsverwaltung nicht auf jene zu- 
greifen kann. 
Berücksichtigt man weiter die große 
Zahl der gelieferten Programme 
(immerhin 3 Disketten), so kann das 
Preis-/Leistungsverhältnis nur als 
gut bezeichnet werden. Immerhin 
kostet Mac Lin 2 Nucleus unter 
MS-DOS für IBM und Kompatible 
DM 2.166,-; für diese Systeme bie- 
tet der Hersteller allerdings zusätz- 
lich einen sog. Interfacer zum Daten- 
austausch mit Textverarbeitungen, 
Lotus 1.2.3, Multiplan etc. an. 
Das Multi-User-System unter CC- 
DOS und PC-Net schließlich soll an- 
nähernd DM 3.500,— kosten. 

Hans Schmidt 
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TAILIDY 
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